Excel VBA無法打開從Google雲端硬盤下載的工作簿

Question

由於從google驅動器下載的文件錯誤，我的程序無法打開工作簿（除GD之外，我沒有其他方法來獲取日期）。 當我運行宏時，會彈出一個消息框，提示“ Excel VBA無法打開工作簿”，當我嘗試打開源文件時，顯示以下錯誤：

“我們在'Planilha1.xlsx'的某些內容中發現了問題。您想讓我們盡我們最大的努力嗎？如果您信任工作簿源，請單擊“是”。

打開數據源工作簿時出錯

我的代碼有問題：

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)