xlsmファイルで、別名ファイルを保存する方法

Sub ファイル保存()
保存場所 = ActiveWorkbook.Path & "\"
Application.DisplayAlerts = False
Thisworkbook.SaveAs 保存場所　& "あたらしいファイル名称" & ".xlsm"
End Sub

このマクロを実行すると、マクロを含むファイルの名前が、あたらしいファイル名称という名前になってしまいます。
やりたいのは、マクロを含むファイルはそのままの名前で、あたらしいファイル名称.xlsm というファイルを作成することです。

どうすればよいか教えてください。

No.1 回答者： fujillin 回答日時： 2023/09/04 21:37

こんばんは

開いているファイル名称はそのままにしたいということですよね？

その場合は、Workbook.SaveAs ではなく、Workbook.SaveCopyAs メソッドをご利用ください。
https://learn.microsoft.com/ja-jp/office/vba/api …

この回答へのお礼

できました。手こずっていたのですが簡単なんですね。

お礼日時：2023/09/04 21:50