マクロボタンを押すと、ファイル名を“日付(年月日)_文字.xlsx”にして指定ファイルに保存したいの

マクロボタンを押すと、ファイル名を“日付(年月日)_文字.xlsx”にして指定ファイルに保存したいのですが、可能でしょうか？

調べても、日付で保存か指定ファイルに保存かどちらかしかなく、困っております

よろしくお願いします。

No.1 ベストアンサー 回答者： mygoonickname 回答日時： 2021/11/30 04:53

おはようございます。

下記が参考になるでしょうか？

https://daitaideit.com/vba-saveas/

Sub TEST2()
Dim A As String, B As String
A = Format(Now(), "yyyymmdd") & "_文字.xlsx" '日付
B = ThisWorkbook.Path & "\" & A 'ファイルパス
'名前を付けて保存
ThisWorkbook.SaveAs FileName:=B
End Sub


A = Format(Now(), "yymmdd") & "_文字.xlsx" '日付→211130_文字
A = Format(Now(), "yyyymmdd") & "_文字.xlsx" '日付→20211130_文字

No.2 回答者： めぐみん_ 回答日時： 2021/11/30 09:00

直接の回答ではなく個人的なものになりますが。

私は時刻を必要としない場合なら Date関数を用います。
? Date()
2021/11/30
? Now()
2021/11/30 8:52:31
書式設定で消せますけどそもそも必要なければ取得しないって所です。

回答はベテラン回答者様が既に出しているので割愛します。
ただ『文字』が常に同じなのか、都度変えたいのかによってですが、仮に後者なら

http://officetanaka.net/excel/vba/tips/tips37.htm
こちらと組み合わせるのも選択肢にあげられるかと。