关闭ScreenUpdating，EnableEvents和DisplayAlerts-Java 学习之路

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

Private Sub CommandButton4_Click()

Dim RutaArchivo As String

On Error Resume Next
RutaArchivo = Application.GetOpenFilename(Title:="Test", _
                        filefilter:="Excel files (*.xlsx), *.xlsx")
Workbooks.Open Filename:=RutaArchivo
With Application

.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
End With

End Sub

1 回答

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

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

回复于 2024-04-28T09:03:37+08:00

关闭ScreenUpdating，EnableEvents和DisplayAlerts

1 回答

相关问题