vba - 打开excel文件时出现运行时错误

Question

我正在尝试在 button_click 中打开 excel 文件事件。我打开的前四个 excel 文件没有遇到任何错误，但是当我的宏打开第五个时，它停止并显示此运行时错误:

Run-time error '-2147021892 (80070bbc)':

office has detected a problem with this file. 
To help protect your computer this file cannot be opened.

这是我打开excel文件的代码:

    Set wb = Workbooks.Open(fileName:=fileName, UpdateLinks:=True)

Answer 1

我有同样的问题。文件已损坏并且 VBA 打开引发了该错误。作为一种可能的解决方案，我发现了这个(faname 是带有路径的字符串):

Workbooks.Open FileName:= fname, UpdateLinks:=False, ReadOnly:=True, _
   IgnoreReadOnlyRecommended:=True, Password:="", Editable:=FALSE, _
   CorruptLoad:= xlExtractData

重要的部分是“CorruptLoad:= xlExtractData”，它可以从损坏的文件中加载数据而不会引发此错误。其他东西只是为了防止文件做某事......连同

Application.DisplayAlerts = False
Application.AskToUpdateLinks = False
Application.EnableEvents = False
Application.AutomationSecurity = msoAutomationSecurityForceDisable
Application.Calculation = xlCalculationManual

作为打开文件之前的预防措施...如果您这样做，请不要忘记在宏完成之前撤消它(这些是我的标准设置，请使用您自己的!您可以使用立即窗口中的 Debug.Print 找到它们):

Application.DisplayAlerts = True
Application.AskToUpdateLinks = True
Application.EnableEvents = True
Application.Calculation = xlNormal
Application.AutomationSecurity = msoAutomationSecurityLow

请注意您的安全设置实际上是什么，不要盲目复制这些设置更改......
最好也捕获错误(“On Error ...”)并通过重置您以前的设置来终止。