プロが教える店舗&オフィスのセキュリティ対策術

マクロを実行した時に保存先のダイナログを非表示で作業中のフォルダ内にダイレクトで保存出来る方法を教えてください。
マクロ
Sub 電子提出()
Application.DisplayAlerts = False
On Error Resume Next
Worksheets(Array("記載方法")).Delete
Worksheets(Array("提出図書(参考)")).Delete
Worksheets(Array("消防の指摘一覧(参考資料)")).Delete
Worksheets(Array("Web申請手順(参考)")).Delete
Worksheets(Array("申請種別")).Delete
Worksheets("提出シート").Activate
Dim rng As Range
Set rng = Selection.Cells
Range("B1", "H47").Select
myBook = ThisWorkbook.Path
ActiveWorkbook.SaveAs Filename:=myBook & "\" & Range("P1").Value & "(提出用).xlsx", FileFormat:=xlOpenXMLWorkbook
rng.Select
Sheets("提出シート").Range("D3,D4,D7").ClearContents
Range("D7").Select
Application.Dialogs(xlDialogSaveAs).Show Arg1:="\" & Range("P1").Value, Arg2:=xlOpenXMLWorkbookMacroEnabled

Application.Quit
With ThisWorkbook
.Saved = True
Application.DisplayAlerts = True
.Close False
End With
Sheets("提出シート").Shapes("新築FD").Visible = False '
Sheets("提出シート").Shapes("計変FD").Visible = False '
Sheets("提出シート").Shapes("増築FD").Visible = False '
Sheets("提出シート").Shapes("担当者").Visible = False '
Range("D7").Select

End Sub
があります。
マクロを実行すると不要なシートを削除し、指定セル値をファイル名として
マクロ有効方式「.xlsm」と一般Excel方式「.xlsx」の2つのファイルで保存されますが、
このマクロを実行した場合に、ダイナログが開き、保存先フォルダを指定して保存しておりますが
ダイナログを非表示で、ダイレクトで保存出来る方法を教えてください。
よろしくお願いいたします。

A 回答 (1件)

こんにちは



思考放棄??

貴方がご提示のマクロで、「(提出用).xlsx」のファイルはダイアログを出さずに作成されているのではないでしょうか?
同じ方法を取ればよいだけのこと。


とは言うものの、普通の手順で考えれば、
>Application.Quit
のあとにコードを書くようなことはしないと思いますけれど・・
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!