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

マクロで下記の式を設定しております。
「Sub 青紙保存()
Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("CQ1 ").Value
End Sub」
このマクロはセルCQ1に設定している物件名と管理番号でExcelファイル全体を保存保存出来るように設定しております。
この式に追加して
固定のフォルダー内に保存出来るよう方法を教えてください。
固定のフォルダー名
「\\N●●-●●01\●●●●●\●●部\電子●●　関連\★●●申請\1.●●」
以上です。
申し訳ありません、●●の部分は公開したくない情報ですので、ご了承ください。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2022/01/07 17:13

こんにちは

カレントドライブなら良いのですが、、
\\N●●-●●01でなら
Application.Dialogs(xlDialogSaveAs).Showでは難しいかも、、

決め打ちで良いのなら　ThisWorkbook.SaveAs　などで調べてみてください

この回答へのお礼

ありがとうございました。
参考にさせて頂きます。

お礼日時：2022/01/07 17:16