マクロを実行した時に保存のダイナログが「非表示」の状態でダイレクトに保存できる方法を教えてください。
マクロ
Sub 行政報告2()
Application.ScreenUpdating = False
Dim folder As String
folder = "\\Nas-sp01\share\確認部\行政報告フォルダ\☆確認済交付月別物件(完了検査対象)\" & Worksheets("300").Range("A41").Text & " 【担当】確認番号 建物名称\" & Worksheets("300").Range("A43").Text & "\"
Dim initName As String
initName = folder & Worksheets("1").Range("X1").Value
newName = Application.GetSaveAsFilename(InitialFileName:=initName, FileFilter:="Excel マクロ有効ブック(*.xlsm), *.xlsm")
If newName = False Then Exit Sub
ThisWorkbook.SaveCopyAs newName
Workbooks.Open newName
Dim ws As Worksheet
Dim TargetCheck As String
Dim List As Variant
Dim i As Long
Dim Chk As Boolean
List = Array("休日", "受付", "管理表")
For Each ws In Worksheets
Chk = False
If ws.Visible = False Then
For i = 0 To UBound(List)
If ws.Name = List(i) Then
Chk = True
Exit For
End If
Next i
If Chk = False Then
TargetCheck = TargetCheck & ws.Name & vbCrLf
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
End If
Next ws
ActiveWorkbook.Close SaveChanges:=True
Application.ScreenUpdating = True
End Sub
があります。
マクロを実行すると指定の保存先フォルダが開き、指定のセル値がファイル名にて保存されますが、
その都度、保存のダイナログが表示されます。このダイナログを非表示でそのまま指定フォルダ内に保存出来る方法を教えてください。
よろしくお願いいたします。
No.2
- 回答日時:
save処理の前なので
ThisWorkbook.SaveCopyAs newName
の前に=False。
その後ろで
=true
既に
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
と言う記述がされてます。
それを真似て下さい。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
一つのTeratermのマクロで複数...
-
特定のPCだけ動作しないVBAマク...
-
Excel・Word リサーチ機能を無...
-
Excel マクロ VBA プロシー...
-
ExcelのVBA。public変数の値が...
-
メッセージボックスのOKボタ...
-
エクセルで特定の列が0表示の場...
-
エクセルに張り付けた写真のフ...
-
ダブルクリックで貼り付けた画...
-
エクセルで別のセルにあるふり...
-
EXCELマクロでのThisisWor...
-
OnTimeを使ったのですが「エラ...
-
Excel マクロでShearePoint先の...
-
エクセルVBAでNAVITIMEを使って...
-
エクセルの改ページを行ごとに...
-
ファイルが見つからない時、ス...
-
マクロ実行時、ユーザーフォー...
-
Excel VBAからAccessマクロを実...
-
マクロ実行時エラー
-
wordを起動した際に特定のペー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
Excel マクロでShearePoint先の...
-
ExcelVBAでPDFを閉じるソース
-
特定文字のある行の前に空白行...
-
マクロ実行時、ユーザーフォー...
-
wordを起動した際に特定のペー...
-
エクセルで別のセルにあるふり...
-
ソース内の行末に\\
-
マクロで空白セルを詰めて別シ...
-
【EXCEL VBA】オートシェイプを...
-
エクセルのマクロをセルの値に...
おすすめ情報
回答ありがとうございます。
申し訳ありません、
「Application.DisplayAlerts = False」をどのコード部分に入れれば良いのでしょうか。
よろしくお願いいたします。
ありがとうございます。
ご指示の通り「If newName = False Then Exit Sub
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs newName
Application.DisplayAlerts = True
Workbooks.Open newName」と設定しましたがやはり保存先のダイナログが開いてしまします。
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = Trueと言う記述がされてます。それを真似て下さい。
とはどのようなすればよいでしょうか?無知でご迷惑をお掛け致します、何度も申し訳ありません、解決方法をよろしくお願いいたします。