在执行代码时如何防止弹出框出现？

Question

我有一个代码可以在文件之间复制数据。其中一些文件具有指向其他文件的链接。因此，当我运行宏以将数据自动复制到其他文件时，出现这些弹出式窗口，询问我是否要更新这些链接。在选择“更新”之后，我又弹出一个对话框，说这些链接无法更新，并询问我是否要继续。即使在复制后保存文件，我也会看到一个弹出窗口，说“小心……”。 我不希望在运行代码时出现这些弹出窗口。我希望它是全自动的，即无需任何手动干预

Answer 1

可以很容易地避免显示消息，例如：

Sub test()
Application.DisplayAlerts = False

'Code

Application.DisplayAlerts = True
End Sub

编辑
为避免更新警告：

Sub test()
Application.AskToUpdateLinks = False
Application.DisplayAlerts = False

'Code

Application.AskToUpdateLinks = True
Application.DisplayAlerts = True
End Sub

如果您只是打开工作簿，这就足够了：

Application.Workbooks.Open Filename:="C:\test.xlsx", UpdateLinks:=False