覆盖现有文件excel vba

Question

open_book.SaveAs Filename:="E:\MF\data\" & com_tick_ask & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

这是将文件另存为xlsx的代码，但是我想覆盖现有文件。 并关闭此工作簿。 谁能帮忙...

Answer 1

抱歉给您带来麻烦。 我得到了答案。

我只需要在我的SaveAs语句之前放这行代码...

Application.DisplayAlerts = False

并必须在其后立即放置这行代码...

Application.DisplayAlerts = True

例如

Application.DisplayAlerts = False
open_book.SaveAs Filename:="E:\MF\data\" & com_tick_ask & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True