关闭ScreenUpdating，EnableEvents和DisplayAlerts

Question

我使用上面的代码从表单中打开Excel文件。我试图在没有更新工作簿链接的应用程序请求的情况下打开文件。但似乎由于某种原因，只要文件打开，应用程序仍会弹出消息框，询问是否更新工作簿的链接。你知道为什么代码可能无法正常工作吗？ 谢谢

product

Private Sub CommandButton4_Click()

Dim RutaArchivo As String

Answer 1

尝试使用它来打开返回的工作簿：

Set objexcel = CreateObject("Excel.Application")
objexcel.Application.DisplayAlerts = False
Application.Workbooks.Open Filename:=RutaArchivo
objexcel.Application.DisplayAlerts = True