エクセルマクロ

質問

例えばA１セルに入力されている値を常にファイル名に
して保存するということはマクロで可能でしょうか？
A1セルの値は変化し、ファイル名は上書きしていくという
かたちにしたいのですが。

よろしくお願いします。

回答No.1

TTak · ベストアンサー

可能です。例えばシート1のセルA1の値で保存する場合は、

Sub THSFILE_SAVE()
Dim myFname0 As String
Dim myFname As String
myFname0 = ThisWorkbook.Name
myFname = Sheets(1).Range("A1").Value
'新規保存
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & myFname
'元のファイル削除
Kill ThisWorkbook.Path & "\" & myFname0
End Sub

こんな感じでしょうか。一応win2000,excel2000で動作しました。
●注意！！
元のファイルを削除するコードがありますので、動作させる場合は注意してください。

お礼

ありがとうございます。
思っていたとおりの事がこれでできました。
完璧でした。