エクセル ファイル名を指定して保存したい。

質問

現在次のようなマクロを最後に記述してそこでダイアログボックスに表示されるデフォルトのファイル名に都度日にちを手動入力して保存しています。
これを自動でファイル名を保存ダイアログボックスに表示できるようにしたいのですがどのような記述にしたらいいでしょうか

※ファイル名
A1に2016/9/15と入っている場合
「160915△△△△△△△..xlsm」と保存したい。
(「△△△△△△△」は固定)

現在使用中
Application.Dialogs(xlDialogSaveAs).Show

Windows7/エクセル2013

回答No.1

kagakusuki · ベストアンサー

A1セルに入っている日付を付ける場合

Application.Dialogs(xlDialogSaveAs).Show Arg1:=Format(Range("A1").Value, "yymmdd") & ActiveWorkbook.Name, Arg2:=xlOpenXMLWorkbookMacroEnabled

保存した日の日付を付ける場合

Application.Dialogs(xlDialogSaveAs).Show Arg1:=Format(Date, "yymmdd") & ActiveWorkbook.Name, Arg2:=xlOpenXMLWorkbookMacroEnabled

お礼

早速ありがとうございました。
うまくできました。