Excel VBA无法打开从Google云端硬盘下载的工作簿

Question

由于从google驱动器下载的文件中存在错误，我的程序无法打开工作簿（除GD之外，我没有其他方法来获取日期）。当我运行宏时，会弹出一个消息框，提示“ Excel VBA无法打开工作簿”，当我尝试打开源文件时，显示以下错误：

“我们在'Planilha1.xlsx'的某些内容中发现了问题。您想让我们尽我们最大的努力吗？如果您信任工作簿源，请单击“”。

打开数据源工作簿时出错

Te破坏了我的代码的一部分：

Set wb1 = ThisWorkbook
Set ws1_1 = wb1.Worksheets("Auto")

ws1_1.Activate

sPasta = ws1_1.Cells(2, 3).Value
sPasta = sPasta & "\"
sArquivo = ws1_1.Cells(7, 3).Value
**Set wb2 = Application.Workbooks.Open(sPasta & sArquivo, False)**

它仅停留在最后一行。我已经检查过它是否从正确的单元格中提取正确的工作簿名称，并且一切正常。问题确实出在驱动器下载的文件中。有谁知道该如何解决？

附注：当我修复工作簿时，宏运行正常

谢谢！

Answer 1

您可以告诉VBA在打开文件时对其进行修复，这样它就不会停止您的宏。

在最后一行更改：

Set wb2 = Application.Workbooks.Open(sPasta & sArquivo, False)

对此：

Set wb2 = Application.Workbooks.Open(sPasta & sArquivo, UpdateLinks:=False, corruptload:=xlrepairfile)