こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセルマクロ機能で、常に上書き保存を選択させたい

いつもお世話になっております。
エクセルマクロ機能を利用し、特定のセル情報を新規bookにコピー貼り付けさせ、名前をつけて保存を実行するよう記録しました。
ここまでは問題ないのですが、毎回同じファイル名で実行するので、そのたびに「上書きしますか?」のメッセージが出て、そこでいったん手動で「はい」を選択しないとならなくなります。
ここで、マクロの記述内に何かを加えて、毎回、「はい」を自動で選択させ、保存までが1回のマクロで実行できるようにできますか?

参考までに↓以下、記述された内容をコピーします。
Sub Macro3()
'
' Macro3 Macro
' マクロ記録日 : 2007/9/19 ユーザー名 :
'

'
Columns("A:U").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="D:\フォルダ1\ふぉるだ2\ファイル名.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

投稿日時 - 2007-09-19 12:09:52

QNo.3358327

すぐに回答ほしいです

質問者が選んだベストアンサー

下記の方法で表示されなくなります。

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ・・・・
Application.DisplayAlerts = True

投稿日時 - 2007-09-19 12:13:51

補足

補足ですみません。うまくいきました。
ActiveWorkbook.SaveAs ・・・・
の前後に記述すればよかったのですね。
ありがとうございました!

投稿日時 - 2007-09-19 13:27:42

お礼

回答ありがとうございました。
これは、EndSubの前に記述すればよいのでしょうか?
記述してみましたがうまくいきません。
どうすればよいでしょうか?お手数おかけします。m(_ _)m

投稿日時 - 2007-09-19 13:23:18

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問