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

Vba 将*.xlsm文件另存为*.xlsx并抑制弹出窗口,vba,excel,Vba,Excel,当前活动工作簿是启用了宏的工作簿 在执行一些自动数据操作之后,我想将其保存为一个新的无宏工作簿(因此是.xlsx而不是.xlsm)。为此,我录制并编辑了一个宏: Dim newFilePath As string newFileFullName = "C:\List.xlsx" ActiveWorkbook.SaveAs Filename:=newFileFullName, FileFormat _ :=xlOpenXMLWorkbook, CreateBackup:=False Workb

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

在执行一些自动数据操作之后,我想将其保存为一个新的无宏工作簿(因此是.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
但是,每当我运行这个宏时,就会不断弹出一个对话框,要求确认是否要更改文件格式


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

添加
Application.DisplayAlerts=False


感谢@simoco

尝试添加
Application.DisplayAlerts=False
问题是答案是作为评论发布的,因此没有答案可接受。如果@simoco返回并将此作为答案发布,则应删除此答案,否则此答案需要保留在此处,并在两天后自行接受。