VBE 同名ファイルがある場合、上書きしたい

質問

Dドライブに、　仕訳.xls　というファイルがあります。

「保存」マクロを実行すると、不要な行を削除したのち、Dドライブの「経理」フォルダに　決算.xls　という名前で保存します。
その一文が、以下で作られています

ActiveWorkbook.SaveAs Filename:="D:\経理\決算.xls", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False

フォルダ内に同名のファイルがあった時は確認メッセージが出ます。
同名ファイルがあった際、強制的に上書きを行いたいのですが、どこをどう変えればいいかわかりません…

回答No.1

kkkkkm · ベストアンサー

下記のようにしてください。

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="D:\経理\決算.xls", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True

お礼

ありがとうございました。
おかげさまで、マクロは無事に動いています。

回答No.2

ushi2015

こんにちは
上書きしていいのなら削除してしまうのも手です。
On Error Resume Next
Kill "D:\経理\決算.xls"
On Errror GoTo 0
ActiveWorkbook.SaveAs Filename:="D:\経理\決算.xls", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
のように。

お礼

考え方…なのですね。
Killステートメントの勉強になりました。
ありがとうございました。