確認メッセージを出さずにブックを上書き保存するには?

Question 14.8 Previous Next
テキスト文書をExcelで開き、加工して名前をつけて保存するというマクロを作成しました。
ファイル名は毎回同じ名前で上書(置換)保存する為、上書確認メッセージが表示されます。
今はユーザーに「上書する」ボタンを選択させています。自動化させたいのですが方法が分かりません。

尚、そのファイルは別のファイルからVlookup関数で参照している為、名前は毎回同じ名前で保存させたいのです。
自動でファイル名をつける・すでにある名前と同じ名前で保存する方法は、ないでしょうか?
(今は「ActiveWorkbook.SaveAs FileName:="C:\dbg952.xls"」コマンドを使っています。「ActiveWorkbook.Save」という上書コマンド + 名前をつける)

よい方法がありましたら教えて下さい。よろしくお願い致します。お忙しい所申し訳ありません。
Answer   Copyright (C) 1999.1.28 永井善王
置換確認 あなたが知りたいことは、ブックを上書き保存する時に、エクセルの確認メッセージ(右図:Excel97の場合)を出さなくする方法ですね。

この「すぐに役立つエクセルVBAマクロ集」には、すべてのマクロが載ってるとは言えませんが、これについては載っています。
あなたは見つけれなかったようですが、Macroの「ブックシート」の[基本型]のページの1)ブックを開く、閉じるの中の「アクティブブックを上書き保存して閉じる」に、ブックを閉じる場合にメッセージを出さないケースがあります。
一応、以下にまとめておきます。
'------------------------------------------------------------------------------
Sub 確認メッセージを出さずにブックを上書き保存する()
    Application.DisplayAlerts = False           'メッセージを出さない
    ActiveWorkbook.SaveAs FileName:="C:\dbg952.xls"
End Sub
'------------------------------------------------------------------------------

 

Excel VBA Macro