错误捕捉On Error Goto(Resume)

iamlaosong文

经常会用到错误捕捉，防止程序意外中断。有三种捕捉方式：

On Error GoTo 0
表示禁止当前过程中任何已启动的错误处理程序，测试发现用-1居然也可以，和0效果相同。执行本语句之后，如再碰到错误，则系统中断程序执行，弹出错误提示。

On Error Resume Next
说明当一个运行时错误发生时，控件转到紧接着发生错误的语句之后的语句，并在此继续运行。即出错不提示，继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。

On Error GoTo line
启动错误处理程序，且该例程从必要的 line 参数中指定的 line 开始。line 参数可以是任何行标签或行号。如果发生一个运行时错误，则控件会跳到 line，激活错误处理程序。用这种语句是要自己写错误处理程序，特别是一些可以预料到的错误。指定的 line 必须在一个过程中，这个过程与 On Error 语句相同； 否则会发生编译时间错误。转到line后可以进行错误处理。错误处理程序中最后除了退出过程（Exit Sub）外，还可以执行：

• Resume：接着错误的地方执行，重试。 
• Resume Next：类似On Error Resume Next，忽略当前错误语句，执行下一语句      
• Resume <标号>：到标号那里去处理。

在处理错误之后使用 Err.Clear 来清除 Err 对象，例如，在对 On Error Resume Next 使用拖延错误处理时就可使用 Clear。每当执行下列语句时就会自动调用 Clear 方法：

• 任意类型的 Resume 语句
• Exit Sub, Exit Function, Exit Property
• 任何 On Error 语句。

通过下面例程可以看到错误捕捉语句的效果（假定工作表数量不超过4）：

Sub tt()
    For i = 0 To 5
       On Error GoTo err1
       a = 5
       b = a / i
       MsgBox b
       On Error GoTo err2
       c = i
       Sheets(c).Select
    Next i
    Exit Sub
err1:
    MsgBox err.Number & err.Description
    err.Clear
    MsgBox err.Number & err.Description
    Resume Next
err2:
    MsgBox err.Number & err.Description
    c = 1
    Resume
End Sub

Sub tt()
    For i = 0 To 5
       On Error GoTo err1
       a = 5
       b = a / i
       MsgBox b
       On Error GoTo err2
       c = i
       Sheets(c).Select
    Next i
    On Error GoTo 0
    Sheets(i).Select
    Exit Sub
err1:
    MsgBox err.Number & err.Description
    err.Clear
    MsgBox err.Number & err.Description
    Resume Next
err2:
    MsgBox err.Number & err.Description
    c = 1
    Resume
End Sub