A1セル入力値をファイル名先頭に追加したい。

質問

マクロ初心者で色々な事例を組み合わせて次のマクロを
作成しました。
A.xlsを開いて一部加工したファイルをB.xlsで保存し
さらに一部を消去しC.xlsで保存するマクロです。
今回、B.xlsおよびC.xlsの先頭にA.xlsのA1セルに入力
された６桁の数字を付加して保存したいのですが・・・。
例えばA1セルが123456の時は
123456B.xls
123456C.xls
どなたか教えてください。

現在のマクロ
Sub Macro2()

Dim strFilePath As String
Dim strFileName As String
Dim flg As Boolean
'◆保存するパスの設定
strFilePath = ThisWorkbook.Path & "\"
'◆保存するファイル名の指定
strFileName = "B"
On Error Resume Next
Workbooks(strFileName).Activate
ThisWorkbook.SaveAs strFilePath & strFileName
'◆個人情報消去
Range("D42:E49").Select
Selection.ClearContents
Range("d1").Select
strFileName = "C"
ThisWorkbook.SaveAs strFilePath & strFileName
Application.Quit
End Sub

回答No.1

watabe007 · ベストアンサー

参考に
Dim strFilePath As String
Dim strFileName As String
strFilePath = ThisWorkbook.Path & "\"
With ThisWorkbook
　　strFileName = .Worksheets("Sheet1").Range("A1").Value
　　.SaveCopyAs strFilePath & strFileName & "B.xls"
　　'シート名も明記のこと
　　.Worksheets("Sheet1").Range("D42:E49").ClearContents
　　.Worksheets("Sheet1").Range("d1").Select
　　.SaveCopyAs strFilePath & strFileName & "C.xls"
　　.Saved = True
End With
Application.Quit