错误处理仅有效一次

我有一个非常简单的 VBA 代码，应该尝试打开一个不存在的文件，将我发送到错误处理程序，然后以无限循环返回到我的代码（故意）。

但是，编译器仅在第一次捕获错误，然后在第二次传递时中断。

我已经尝试了 On Error 语句的每种组合以在第二次传递时将其发送回，但似乎没有任何效果。 这是代码：

Sub TestError()
    On Error GoTo errError
lblError:
    On Error GoTo errError
    'Code that should raise an error and send to errError
    Excel.Application.Workbooks.Open ("lakdfjldkj")
    Exit Sub
errError:
    MsgBox "Code didn't break"
    GoTo lblError
End Sub

是我遗漏了什么，还是这是一个错误？

除非您愿意终止 Excel，或者添加额外的循环条件，否则不要测试此功能

Use Resume到……嗯……resume错误处理程序之后的处理。

Sub TestError()
    On Error GoTo errError

    'Code that should raise an error and send to errError
    Excel.Application.Workbooks.Open "lakdfjldkj"
    Exit Sub
errError:
    MsgBox "Code didn't break"
    Resume
End Sub

我已经使用这样的代码来访问某个工作表，如果找不到该工作表，则错误处理程序会创建一个具有正确名称的工作表，然后恢复处理。