エクセル VBA エクセルで保存できない

VBAビギナーです。
エクセルを今日の日付で保存するマクロを作成しましたが、
拡張子を".xlsx"に指定しているのに出来上がったファイルは"**.xl0x"になっていました。
".xls"に指定しても"**.xl0"になってしまいます。何か設定の問題でしょうか。

書いたのは下記のコードです。よろしくお願いします。

Sub saveas_date()
''今日の日付で新規保存

ActiveWorkbook.saveas Filename:="C:\Users\****\Desktop\" & Format(Date, "yyyymmdd" & ".xlsx")
End Sub

No.2 ベストアンサー 回答者： ママチャリ 回答日時： 2018/12/10 13:19

Format関数を使って、Dateを"yyyymmdd.xlsx"に変換してしまっています。

「xlsx」のsの部分が秒に置き換わっているのです。「& ".xlsx"」は、Format関数の外に出すべきですね。

この回答へのお礼

なるほどです。まだまだ全然ですが慎重に意味を考えながら作れるように頑張ります。
ありがとうございました！

お礼日時：2018/12/10 13:31

No.1 回答者： fakeflake 回答日時： 2018/12/10 12:38

保存する拡張子を指定する場合は、FileFormatプロパティを使ってください。

ActiveWorkbook.saveas Filename:="C:\Users\****\Desktop\" & Format(Date, "yyyymmdd") , FileFormat:= xlOpenXMLWorkbook

他の形式にしたい場合の、FileFormatプロパティのメンバ一覧は以下から。

https://excwlvba.blogspot.com/2013/04/xlfileform …