VBA_错误处理.docxVIP

在 Word 、 Excel 乃至其他支持 VBA 的 Office 组件中，在代码中处理错误的方式通常都是使用“ On Error Goto 错误标签”语句，然后在代码的后面添加错误标签及其中包含的错误处理代码。下面总结了创建错误处理程序的步骤：（ 1 ）在过程中可能导致错误的代码行的前面添加错误处理语句 On Error GotoErrHandler ，其中的“ ErrHandler ”为自定义的错误标签名称。（ 2 ）在有可能导致错误的代码行后面添加取消错误处理的语句 On Error Goto 0 ，这样当遇到错误时，就不会跳转到指定的错误标签处，而是直接显示错误提示窗口，其中包括【调试】、【结束】等按钮。（ 3 ）在宏的末尾（正常程序的末尾）添加代码行 Exit Sub ，这样可以避免程序未发生错误时执行错误处理程序。（ 4 ）在代码行 Exit Sub 的下一行添加一个错误标签，该标签由名称和冒号组成，例如“ MyErr: ”。（ 5 ）在错误标签的下一行编写错误处理代码。如果要返回导致错误的代码行后面的代码行，可以使用 Resume Next 语句。注意：可以在过程的末尾添加多个错误处理程序，但必须确保每个错误处理程序都以 Resume Next 或 Exit Sub 语句结束，这样可以避免从当前错误程序之后继续执行其后的错误处理程序。举一个简单的例子可能会更直观地反映出上面所说的内容。在下面的代码中，当检测到工作簿中没有指定的工作表时，将出现错误，并执行错误代码，显示一个包含错误号与错误描述的对话框。Sub 检测工作表是否存在 ()Dim wksname As String, msg As String On Error GoToMyErrwksName = Worksheets(sx).Name MyErr: msg = 错误 Err.Number ： Err.DescriptionMsgBoxmsgEnd Sub 注意：无论在导致问题的代码行前面使用 On Error Resume Next 语句还是“ On Error Goto 标签”语句，要想让程序重新获取其他错误信息，则都必须在导致问题的代码行后面使用 On Error Goto 0 语句恢复正常的错误捕获状态。否则当前的错误处理程序将对后面的所有错误都起作用。例如，下面的代码由于没有使用 On Error Goto 0 语句，因此，在后面遇到错误时（两次 x/y ），都会转到标签 MyErr 处执行错误处理程序。Sub ErrTest()Dim x As Integer, y As Integer, z As Single x = 1 y = 0 On Error GoToMyErrMsgBox x / y MsgBox x / y MsgBox 继续执行错误代码行的下一行代码 Exit Sub MyErr: MsgBox 第 1 次：除数不能为 0 Resume Next End Sub 而下面的代码由于及时使用了 On Error Goto 0 语句，因此，在第 2 次错误发生时（即第 2 个 x/y ），系统将显示内置错误消息，而不是运行 MyErr 标签处的代码。Sub ErrTest()Dim x As Integer, y As Integer, z As Single x = 1 y = 0 On Error GoToMyErrMsgBox x / y On Error GoTo 0 MsgBox x / y MsgBox 继续执行错误代码行的下一行代码 Exit Sub MyErr: MsgBox 第 1 次：除数不能为 0 Resume Next End Sub 下面的代码虽然未使用 On Error Goto 0 语句，但是在第 2 个错误发生前，添加了第 2 个错误标签，因此，两个错误处理程序分别处理各自的错误。Sub ErrTest()Dim x As Integer, y As Integer, z As Single x = 1 y = 0 On Error GoTo MyErr1 MsgBox x / y On Error GoTo MyErr2 MsgBox x / y MsgBox 继续执行错误代码行的下一行代码 Exit Sub MyErr1: MsgBox 第 1 次：除数不能为 0 Resume Next MyErr2: MsgBox 第 2 次：除数不能为 0 Resume Next End Sub 以上 3 段代码在执行完错误处理程序后，都会返回发生错误的代码之后继续执行。对于本例来说，在执行完错误处理程序后，都会继续执行“ MsgBox 继续执行错误代码行的下一行代码