Error, Error$

返回与给定错误号对应的错误消息。

语法：

• Error$ [ ( errornumber ) ]
• Error [ ( errornumber ) ]

errornumber

可选 任何有效的错误号。如果 errornumber 是有效的错误号但未定义，Error 返回字符串 "Application-defined or object-defined error"。如果 errornumber 无效，将发生错误。如果省略 errornumber，则返回与最近一次运行时错误对应的消息。如果未发生过运行时错误，或 errornumber 为 0，Error 返回零长度字符串（""）。

$ 后缀形式返回 String；无后缀形式返回 Variant (String)。

INFO

Error 函数（此处描述的）与 Error 语句同名但是不同的语言元素。函数返回错误号的消息文本；语句引发运行时错误。

检查 Err 对象的属性设置以识别最近的运行时错误。Error 函数的返回值对应于 Err 对象的 Description 属性。

示例

此示例使用 Error 函数打印与指定错误号对应的错误消息。

Private Sub PrintError()
    Dim ErrorNumber As Long, count As Long
    count = 1: ErrorNumber = 1
    On Error GoTo EOSb
    Do While count < 100
        Do While Error(ErrorNumber) = "Application-defined or object-defined error"
            ErrorNumber = ErrorNumber + 1
        Loop
        Debug.Print count & "-Error(" & ErrorNumber & "): " & Error(ErrorNumber)
        ErrorNumber = ErrorNumber + 1
        count = count + 1
    Loop
EOSb: Debug.Print ErrorNumber
End Sub

另请参阅

• Error 语句
• CVErr 函数