VBA异常处理 On Error Resume Next

如果出错后，不需要进行异常处理，直接跳到下一句继续执行，可以通过On Error Resume Next实现。

语法

On Error Resume Next

可能出现异常的代码

这种处理无需标签。

示例

Sub sub5()
  ' 如果出错：忽略错误，继续执行下一句。
  On Error Resume Next
  a = 4 / 0
  Debug.Print "继续1"
End Sub

输出结果：

继续1

不会弹出错误窗口。

比较上一节的Resume Next与本节的On Error Resume Next

上一节的Resume Next通常用在标签中，作为独立的一条语句；

本节的Resume Next放在On Error后，整个On Error Resume Next是一条语句。