同名ファイルの上書き確認ダイアログを表示させない方法（Excel97VBA）

質問

あるディレクトリに、既存のファイル名と同じ名前を付けて新しく保存しようとすると、上書きの確認ダイアログがでます。
このダイアログを出させずに、無条件で上書きするにはどのようにすればいいのでしょうか？

現在、“Application.AlertBeforeOverwrite = False”として、その次の行に“ActiveWorkbook.SaveAs FileName:="なまえ.xls"としています。
もちろん、保存先のディレクトリには「なまえ.xls」というファイルが存在します。

回答No.2

nishi6 · ベストアンサー

SaveAs の前に

　Application.DisplayAlerts = False

を追加したらどうでしょうか。確認メッセージを表示しないようにします。今使っているのはExcel2000ですがExcel97も同じでしょう。

ところで、Application.AlertBeforeOverwrite = False　は？ですね。不勉強で余りみたことが無いですね。
もしかしてAlertBeforeOverwriting（これもExcel2000です。97は？）なら、ドラッグ アンド ドロップ編集中に上書きする場合、警告メッセージを出すかださない選択する時に使うんですが・・・

お礼

DisplayAlertsですね。(^^ゞ
AlertBeforeOverwriteはおっしゃる通りでした。
ありがとうございました。

回答No.3

kenken0001

２つの方法を

１つ目
Kill コピー先ファイル名
でコピー先のファイルを消してしまう

２つ目
Application.DisplayAlerts = False
で確認メッセージの表示を中止する
（これが含まれるプロシージャ内有効）
解除=True

下記より引用
株式会社秀和システム
Excel2000VBA実践プログラミング

お礼

ありがとうございました。

回答No.1

tailkuppa

Dir かなんかであらかじめ同名のファイルがあるかをチェックして、あったら先に削除またはリネームしてしまうっていう方法はどうでしょう？
もっといい方法はありそうですけど、とりあえず自分はこの手でしのぎました。
該当するファイルが他で使用中だとこの手は使えないと思いますけど。