マクロ
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 & " 【担当】確認番号 建物名称\"」と指定し
保存じにダイナログが開かないようにして、
ダイレクトで保存出来る方法を教えてください。
よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/17 11:59
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/20 14:46
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Visual Basic(VBA) エクセルのマクロコードの一部分を変更する方法について教えてください。 2 2023/02/17 08:40
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/20 10:00
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Access(アクセス) エクセルのマクロについて教えてください。 2 2023/02/03 16:07
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
18歳自衛官 現在教育隊なのです...
-
文書上、「早め」と「早目」で...
-
送りがな「取り付け」と「取付...
-
朝倉未来が、 「愛知の豊橋は日...
-
海上自衛隊と海上保安庁は、仲...
-
【貨幣価値】1950-1953年当時の...
-
老人クラブの解散について
-
周りから死んで償えと言われる...
-
秋田県には一宮神社(県内で最も...
-
法務省事務次官と検事総長どっ...
-
役所の職員はどこまで個人情報...
-
市役所職員は、どれだけの情報...
-
個人が国を買うことは可能なのか?
-
自衛隊ですが体力測定に受から...
-
約1週間後に着隊の自衛隊員にな...
-
貴方様の思う、人に恨まれる職...
-
このエースコックのワンタン麺...
-
「過ごす」と「過す」
-
集団ストーカーされているよう...
-
検事さんと検察官の違いを教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
文書上、「早め」と「早目」で...
-
18歳自衛官 現在教育隊なのです...
-
送りがな「取り付け」と「取付...
-
老人クラブの解散について
-
「デマケ」ってどういう意味で...
-
「過ごす」と「過す」
-
秋田県には一宮神社(県内で最も...
-
海上自衛隊と海上保安庁は、仲...
-
朝倉未来が、 「愛知の豊橋は日...
-
【貨幣価値】1950-1953年当時の...
-
なぜ「帰朝」??
-
自衛隊に入隊、健康保険証は?
-
周りから死んで償えと言われる...
-
各国大使の序列と外務省の序列...
-
役所の職員はどこまで個人情報...
-
自衛隊ですが体力測定に受から...
-
第一種圧力容器は毎月、定期自...
-
集団ストーカーされているよう...
-
公務員の職名について
-
町内会の会長を解任したいが、...
おすすめ情報
回答ありがとうございます。
ご指示の通りにコードを設定しましたが
ThisWorkbook.SaveAs fileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
の部分が黄色くなり実行出来ませんでした。
申し訳ありません、解決方法をよろしくお願いいたします。