VBA错误1004 - 打开工作簿时"Cannot access file"

Question

我正在迭代一个大的 excel 文件目录(xls、xlsx、xlsm(，并在其中一个文件上遇到问题。我想跳过此文件和显示相同问题的任何其他文件。

当该过程尝试打开文件时，我收到一个带有上述错误消息的弹出窗口。下面是代码，它应该跳过错误，但它没有帮助，代码停止执行。

On Error Resume Next
Application.DisplayAlerts = False
Set sourceWB = Workbooks.Open(fileName:=filePath, UpdateLinks:=False, ReadOnly:=True, IgnoreReadOnlyRecommended:=True, Password:="", Editable:=False)

弹出窗口显示后，我将鼠标悬停在第 2 行上，它不应该显示"True"。没有其他代码在事件时触发或在关闭警报和打开工作簿之间运行。

手动打开工作簿，我发现服务器拒绝访问。

任何帮助都非常感谢。谢谢詹姆斯

Answer 1

这可能是您的问题，只需检查以排除它。 转到VBA编辑器。从那里单击工具 ->选项 ->常规 -> 并确保错误捕获设置为"未处理的错误时中断"，而不是其他任何一个选项。