他のブックに現在のデータを日付をつけて保存したい
WinXP Excel2003でマクロを作っている超初心者です。90％完成しましたが、次のことで止まっています。
1）Aブックのユーザーホームに、ＢコマンドボタンとＣコマンドボタンがあります。
Aブック→Ｂコマンドボタン→Ｂブック開く→入力→Ａブックのコマンドボタンで保存
→Ｃコマンドボタン→Ｃブック開く→入力→Ａブックのコマンドボタンで保存
2）Ａブックのコマンドボタンからではなく、エクセルを起動し、Ｂブックを開き、「今日の日付をつけて新規ブックに保存」のマクロを作りました。
コードは次のとおりでした。
Sub ブック名に現在の日付を付加して保存GH()
'Windows環境なのでEnviron関数を使ってみる
Dim strFileName As String
Dim strSavePath As String
Dim intRe As Integer
Application.DisplayAlerts = False
ActiveWorkbook.Save
strSavePath = Environ("HOMEPATH")
strSavePath = strSavePath & "\デスクトップ\総務\請求\データ保存用"
If Dir(strSavePath, vbDirectory) = "" Then
MkDir (strSavePath)
End If
strFileName = strSavePath & "\ＧＨ請求" & Format(Date, "yyyymmdd") & ".xls"
If Dir(strFileName) <> "" Then
MsgBox "このＧＨ請求書を保存し、同時に「データ保存用」の中にも保存しました。。"
Else
ThisWorkbook.SaveAs Filename:=strFileName
End If
If intRe = vbNo Then Exit Sub
If intRe = vbYes Then
ActiveWorkbook.SaveAs Filename:=strFileName
End If
Application.DisplayAlerts = True
Application.Quit
End Sub
無事に今日の日付でＢブックが保存できました。
3）今度は、Ａブックから、→Ｂコマンドボタン→Ｂブック開く→Ａブックのコマンドボタンで「今日の日付をつけて新規ブックに保存」のマクロを実行しました。すると、保存先にはＡブックが保存されていました。ＡブックでなくＢブックのデータを保存したいのに・・・。
4）なぜ、Ｂブックが保存されないのでしょうか？ Ｂブックを保存するにはどうしたらよろしいでしょうか。
