将*.xlsm文件保存为*.xlsx并抑制弹出窗口

Question

当前活动工作簿是启用宏的。

在执行一些自动化数据操作后，我想将其另存为新的无宏工作簿（因此是.xlsx而不是.xlsm）。为此，我录制并编辑了一个宏：

Dim newFilePath As string
newFileFullName = "C:\List.xlsx"

ActiveWorkbook.SaveAs Filename:=newFileFullName, FileFormat _
:=xlOpenXMLWorkbook, CreateBackup:=False

Workbooks.Open Filename:=newFileFullName
Windows("List.xlsx").Activate

然而，每当我运行这个宏时，一个窗口会弹出，询问我是否要更改文件格式。

如何抑制此弹出窗口并将其默认为“是”？

- Mierzen

---

η·ΖεΑùη·ïφΖΜεä†Application.DisplayAlerts = FalseψIJ - Dmitry Pavliv

Answer 1

添加 Application.DisplayAlerts = False

感谢 @simoco

- Mierzen

---

问题在于答案被发布为评论，因此没有答案可供接受。如果@simoco回来并将其作为答案发布，则应删除此答案，否则需要保留此评论，在两天后进行自我接受。 - Adi Inbar