HTML CSS JAVASCRIPT PYTHON PYTHON2 JAVA C C++ C# SQL Excel Linux AI BOOTSTRAP PHP 教程库 参考手册 技术文章 测验 练习 HOWTO FAQ
❮ 上一节 下一节 ❯

VBA - 错误处理

编程中存在三种类型的错误:(a) 语法错误、(b) 运行时错误和 (c) 逻辑错误。

语法错误

语法错误，也称为解析错误，发生在 VBScript 的解释时。 例如，以下行会导致语法错误，因为它缺少右括号。

Function ErrorHanlding_Demo()
   dim x,y
   x = "Tutorialspoint"
   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

逻辑错误

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

您无法捕获这些错误，因为这取决于您的业务需求，您想要在程序中放入什么类型的逻辑。

例如，将数字除以零或编写的脚本进入无限循环。

Error 错误对象

假设如果出现运行时错误，则执行将通过显示错误消息来停止。 作为开发者，如果我们想要捕获错误，那么就会使用 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 }

序号 关键词 & 描述
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 10   ' 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
❮ 上一节 下一节 ❯