エクセルのマクロについて教えてください。

マクロ
Sub 電子提出()
Application.DisplayAlerts = False
On Error Resume Next
Worksheets(Array("記載方法")).Delete
Worksheets(Array("提出図書（参考）")).Delete
Worksheets(Array("消防の指摘一覧（参考資料）")).Delete
Worksheets(Array("Web申請手順（参考）")).Delete
Worksheets(Array("申請種別")).Delete
Application.Dialogs(xlDialogSaveAs).Show Arg1:="\" & Range("P1").Value, Arg2:=xlOpenXMLWorkbookMacroEnabled
Worksheets("提出シート").Activate
Range("B1", "H47").Select
myBook = ThisWorkbook.Path
ActiveWorkbook.SaveAs Filename:=myBook & "\" & Range("P1").Value & "(提出用).xlsx", FileFormat:=xlOpenXMLWorkbook
Application.Quit
With ThisWorkbook
.Saved = True
Application.DisplayAlerts = True
.Close False
End With
End Sub

があります、マクロを実行すると不要シートを削除して、ダイナログが開いて保存先のフォルダを選択して、指定セル値にてファイルを保存「マクロ有効ブック」「Excelブック」の両方保存出来出来ます。
このマクロを保存先のダイナログが開かず、そのまま、マクロファイルがある同じフォルダ内に警告文等無しで「マクロ有効ブック」「Excelブック」の両方保存できる方法を教えてください。
よろしくお願いいたします。

No.2 ベストアンサー 回答者： Qchan1962 回答日時： 2023/02/07 10:45

>保存先のダイナログが開かず

保存先は？
>そのまま、マクロファイルがある同じフォルダ内に

該当部分

Application.Dialogs(xlDialogSaveAs).Show Arg1:="\" & Range("P1").Value, Arg2:=xlOpenXMLWorkbookMacroEnabled
Worksheets("提出シート").Activate
Range("B1", "H47").Select
myBook = ThisWorkbook.Path
ActiveWorkbook.SaveAs Filename:=myBook & "\" & Range("P1").Value & "(提出用).xlsx", FileFormat:=xlOpenXMLWorkbook

を下記に書き換え

myBook = ThisWorkbook.Path
ActiveWorkbook.SaveAs Filename:=myBook & "\" & Range("P1").Value & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
Worksheets("提出シート").Activate
Range("B1", "H47").Select
ActiveWorkbook.SaveAs Filename:=myBook & "\" & Range("P1").Value & "(提出用).xlsx", FileFormat:=xlOpenXMLWorkbook

この回答へのお礼

回答ありがとうございます。
いつもありがとうございます。
全て上手く行きました。

お礼日時：2023/02/07 11:12

No.1 回答者： めぐみん_ 回答日時： 2023/02/07 10:23

直接の回答をしている時間はないので気になった点だけ。

＞Worksheets(Array("記載方法")).Delete

これですと

Worksheets("記載方法").Delete

これと同じですね。
多分マクロの自動記録を取ればわかるかもですけど、ちょっと時間（設備マニュアル作成中の為）がないので未検証でごめんなさい。
ダメならスル～で。

Worksheets(Array("記載方法" , "提出図書（参考）" , "消防の指摘一覧（参考資料）" , "消防の指摘一覧（参考資料）") , "Web申請手順（参考）" , "申請種別" , )).Delete

この回答へのお礼

回答ありがとうございます。
このようにも出来るのですね。
早速試してみます。

お礼日時：2023/02/07 11:12