简谈VBA的错误处理

在Word、Excel乃至其他支持VBA的Office组件中，在代码中处理错误的方式通常都是使用“On Error Goto 错误标签”语句，然后在代码的后面添加错误标签及其中包含的错误处理代码。下面总结了创建错误处理程序的步骤：

（1）在过程中可能导致错误的代码行的前面添加错误处理语句On Error GotoErrHandler，其中的“ErrHandler”为自定义的错误标签名称。

（2）在有可能导致错误的代码行后面添加取消错误处理的语句On Error Goto0，这样当遇到错误时，就不会跳转到指定的错误标签处，而是直接显示错误提示窗口，其中包括【调试】、【结束】等按钮。

（3）在宏的末尾（正常程序的末尾）添加代码行Exit Sub，这样可以避免程序未发生错误时执行错误处理程序。

（4）在代码行Exit Sub的下一行添加一个错误标签，该标签由名称和冒号组成，例如“MyErr:”。

（5）在错误标签的下一行编写错误处理代码。如果要返回导致错误的代码行后面的代码行，可以使用Resume Next语句。

注意：可以在过程的末尾添加多个错误处理程序，但必须确保每个错误处理程序都以Resume Next或ExitSub语句结束，这样可以避免从当前错误程序之后继续执行其后的错误处理程序。

举一个简单的例子可能会更直观地反映出上面所说的内容。在下面的代码中，当检测到工作簿中没有指定的工作表时，将出现错误，并执行错误代码，显示一个包含错误号与错误描述的对话框。

Sub 检测工作表是否存在()

    Dim wksnameAs String, msg As String

    On ErrorGoTo MyErr

    wksName =Worksheets('sx').Name

MyErr:

    msg = '错误' & Err.Number & '：' & Err.Description

    MsgBox msg

End Sub

注意：无论在导致问题的代码行前面使用OnError Resume Next语句还是“On Error Goto标签”语句，要想让程序重新获取其他错误信息，则都必须在导致问题的代码行后面使用On Error Goto 0语句恢复正常的错误捕获状态。否则当前的错误处理程序将对后面的所有错误都起作用。例如，下面的代码由于没有使用On Error Goto 0语句，因此，在后面遇到错误时（两次x/y），都会转到标签MyErr处执行错误处理程序。

Sub ErrTest()

    Dim x AsInteger, y As Integer, z As Single

    x = 1

    y = 0

    On ErrorGoTo MyErr

    MsgBox x/ y

    MsgBox x/ y

    MsgBox'继续执行错误代码行的下一行代码'

    Exit Sub

MyErr:

    MsgBox'第1次：除数不能为0'

    Resume Next

End Sub

而下面的代码由于及时使用了OnError Goto 0语句，因此，在第2次错误发生时（即第2个x/y），系统将显示内置错误消息，而不是运行MyErr标签处的代码。

Sub ErrTest()

    Dim x AsInteger, y As Integer, z As Single

    x = 1

    y = 0

    On ErrorGoTo MyErr

    MsgBox x/ y

    On ErrorGoTo 0

    MsgBox x / y

    MsgBox'继续执行错误代码行的下一行代码'

    Exit Sub

MyErr:

    MsgBox'第1次：除数不能为0'

    ResumeNext

End Sub

下面的代码虽然未使用On ErrorGoto 0语句，但是在第2个错误发生前，添加了第2个错误标签，因此，两个错误处理程序分别处理各自的错误。

Sub ErrTest()

    Dim x AsInteger, y As Integer, z As Single

    x = 1

    y = 0

    On ErrorGoTo MyErr1

    MsgBox x/ y

    On ErrorGoTo MyErr2

    MsgBox x/ y

    MsgBox'继续执行错误代码行的下一行代码'

    Exit Sub

MyErr1:

    MsgBox'第1次：除数不能为0'

    ResumeNext

MyErr2:

    MsgBox'第2次：除数不能为0'

    ResumeNext

End Sub

以上3段代码在执行完错误处理程序后，都会返回发生错误的代码之后继续执行。对于本例来说，在执行完错误处理程序后，都会继续执行“MsgBox '继续执行错误代码行的下一行代码'”代码行。

虽然我们不希望在程序运行时出现错误，但是有些时候我们可以利用错误来提高代码的效率。例如，当用户由于某些原因将工作簿中的某个工作表删除，如果VBA程序中中包括操作该工作表的代码，那么当用户运行该程序时，将导致错误发生。此时，可以利用错误来检测要操作的工作表是否存在于工作簿中。代码如下：

Sub 检测工作表是否存在()

    DimWksName As String

    On ErrorResume Next

    WksName =Worksheets('sx').Name

    IfErr.Number <> 0 Then

       MsgBox prompt:='此工作簿中未找到工作表sx', Title:='错误'

    End If

    On ErrorGoTo 0

End Sub

注意：当使用 On Error Resume Next 语句后，应该及时在可能导致错误的代码行之后使用 On Error Goto 0 语句恢复错误的捕获，即恢复到错误检查的正常状态，以便可以获悉其他任何可能发生的错误。另外，如果使用 On Error Resume Next 语句忽略了无法忽略的错误，将会立刻结束当前运行的过程。而更糟糕的是，如果宏 1 调用宏 2 ，但宏 2 发生了无法忽略的错误，那么将立刻结束宏 2 的运行，而继续执行宏 1 中的下一行代码，这种情况可能会使整个代码包含了不可预知的错误，因此务必要小心。