VBA 保存を指定してする時に因数を使う方法

Sub 保存の指定()

ThisWorkbook.SaveAs "C:\Users\〇〇〇\〇〇〇\デスクトップ\AAA.xlsm"

End Sub

↑このようにコードがあります。このAAAの部分を因数で表示する場合、どういうコードにすればできますか？

↓動きませんがイメージのコードは

Sub 保存の指定()
dim Na as stirng
Na = "11月１日"

ThisWorkbook.SaveAs "C:\Users\〇〇〇\〇〇〇\デスクトップ\Na.xlsm"

End Sub

こんなイメージです。どなたかわかる方よろしくお願いします。

No.1 ベストアンサー 回答者： nekoronda 回答日時： 2020/09/20 19:11

以下のようになります。

ThisWorkbook.SaveAs "C:\Users\〇〇〇\〇〇〇\デスクトップ\" & Na & ".xlsm"

No.2 回答者： めぐみん_ 回答日時： 2020/09/20 19:16

もしNaの日付が当日って言うなら、

ThisWorkbook.SaveAs "C:\Users\〇〇〇\〇〇〇\デスクトップ\" & Format(Date , "m月d日") & ".xlsm"

だけでも行けるはずです・・・多分・・・Officeを壊してて。

この回答へのお礼

ありがとうございます。助かります。また見かけたら、よろしくお願いします。m(__)m m(__)m

お礼日時：2020/09/20 19:34