VBA错误处理

在(VBScript/VBA)编程中有三种类型的错误:

  • 语法错误
  • 运行时错误
  • 逻辑错误

语法错误

语法错误(也称为解析错误)发生在VBScript的解释时间。 例如,下面一行导致语法错误,因为它缺少一个右括号。

Function ErrorHanlding_Demo()
   dim x,y
   x = "Yiibai Yiibai"
   y = Ucase(x
End Function

运行时错误

运行时错误(也称为异常)在执行期间发生,在解释之后。

例如,下面的行会导致运行时错误,因为这里的语法是正确的,但是在运行时它正在尝试调用fnmultiply,但这是一个不存在的函数。

Function ErrorHanlding_Demo1()
   Dim x,y
   x = 10
   y = 20
   z = fnadd(x,y)
   a = fnmultiply(x,y)
End Function

Function fnadd(x,y)
   fnadd = x + y
End Function

逻辑错误

逻辑错误可能是最难追查的错误类型。这些错误不是语法或运行时错误的结果。 相反,当您在驱动脚本的逻辑中犯了一个错误,并且没有得到预期的结果时,就会发生这种情况。

你可能无法捕捉到这些错误,因为这取决于业务需求,在程序中加入什么类型的逻辑。

例如,将一个数字除以零,或写入一个进入无限循环的脚本

rror对象

假设我们有一个运行时错误,那么通过显示错误信息来停止执行。作为开发人员,如果想捕获错误,那么使用Error对象。

例子

在下面的例子中,Err.Number给出错误号,Err.Description给出错误描述。

Err.Raise 6   ' Raise an overflow error.
MsgBox "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear   ' Clear the error.

 

错误处理

VBA启用错误处理例程,也可以用来禁用错误处理例程。没有On Error语句,发生的任何运行时错误都是致命的:显示错误消息,并且执行突然停止。

On Error { GoTo [ line | 0 | -1 ] | Resume Next }

Vb

编号 关键字 描述
1 GoTo line 启用在所需的行参数中指定的行开始的错误处理例程。指定的行必须与On Error语句在相同的过程中,否则将发生编译时错误。
2 GoTo 0 禁用当前过程中启用的错误处理程序并将其重置为Nothing
3 GoTo -1 禁用当前过程中启用的异常并将其重置为Nothing
4 Resume Next 指定发生运行时错误时,控制权转到发生错误的语句之后的语句,并从该点继续执行。

例子

Public Sub OnErrorDemo()
   On Error GoTo ErrorHandler   ' Enable error-handling routine.
   Dim x, y, z As Integer
   x = 50
   y = 0
   z = x / y   ' Divide by ZERO Error Raises

   ErrorHandler:    ' Error-handling routine.
   Select Case Err.Number   ' Evaluate error number.
      Case 11   ' Divide by zero error
         MsgBox ("You attempted to divide by zero!")
      Case Else
         MsgBox "UNKNOWN ERROR  - Error# " & Err.Number & " : " & Err.Description
   End Select
   Resume Next
End Sub

VBA错误处理_第1张图片

 

 

 

 

 

你可能感兴趣的:(VBA)