Excelのマクロコードについて教えてください。

Excelマクロ有効テンプレートで保存しているひな形ブックに下記のコードを設定してます。 Sub データー保存() Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("P1 ").Value End If myBook = ThisWorkbook.Path ActiveWorkbook.SaveAs Filename:=myBook & "\" & Range("P1").Value & "●.xlsx", FileFormat:=xlOpenXMLWorkbook Application.Quit With ThisWorkbook .Saved = True .Close False End With End Sub
マクロを実行すると
１．「P1」値でのファイル名で「マクロ有効テンプレート:XLsm」でブックを保存
２．「P1」値でのファイル名で「Excelブック:XLsx」でブックを保存 の二つのファイルで保存出来る様になっております。
１．の部分を「P1」値でのファイル名で「マクロ有効:XLsm」でブックを保存に変更する方法を教えてください。 よろしくお願いいたします。

No.1 ベストアンサー 回答者： よろずやkinchan 回答日時： 2022/03/27 11:21

あっちのサイトに書いたよ。

この回答へのお礼

ありがとう御座いました。

お礼日時：2022/03/27 11:51