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

マクロ
Sub 行政保存()
Const folder As String = "I13\"
Dim newName As Variant
Dim initName As String
initName = folder & Range("X1").Value
newName = Application.GetSaveAsFilename(InitialFileName:=initName, FileFilter:="Excel マクロ有効ブック(*.xlsm), *.xlsm")
If newName = False Then Exit Sub
ThisWorkbook.SaveAs (newName)
End Sub
があります。
保存先のフォルダを
「\\Nas-sp01\share\確認部\行政報告フォルダ\☆確認済交付月別物件（完了検査対象）\" & Worksheets("300").Range("A41").Text & " 【担当】確認番号 建物名称\"」と指定し
保存じにダイナログが開かないようにして、
ダイレクトで保存出来る方法を教えてください。
よろしくお願いいたします。

質問者からの補足コメント

• 

  回答ありがとうございます。
  ご指示の通りにコードを設定しましたが
  ThisWorkbook.SaveAs fileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
  の部分が黄色くなり実行出来ませんでした。
  申し訳ありません、解決方法をよろしくお願いいたします。

  
  No.1の回答に寄せられた補足コメントです。 補足日時：2023/02/21 08:53

No.1 ベストアンサー 回答者： Hypnomatic 回答日時： 2023/02/21 08:40

Sub 行政保存()

Const folder As String = "\\Nas-sp01\share\確認部\行政報告フォルダ\☆確認済交付月別物件（完了検査対象）\"
Dim fileName As String
fileName = folder & Worksheets("300").Range("A41").Text & " 【担当】確認番号 建物名称\" & Range("X1").Value

' 自動的に保存する場合
Application.DisplayAlerts = False ' 既存ファイルの上書き警告を非表示
ThisWorkbook.SaveAs fileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
Application.DisplayAlerts = True ' 警告を再表示

' ダイアログを表示する場合
' ThisWorkbook.SaveAs Filename:=fileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
' AccessMode:=xlExclusive, ConflictResolution:=Excel.XlSaveConflictResolution.xlLocalSessionChanges
End Sub

この回答へのお礼

ありがとうございました。
一度よく考えて、再度質問させていただきます。

お礼日時：2023/02/21 09:26