Error 函数

  • 项目

返回与给定错误代码相对应的错误消息。

语法

错误 [ (errornumber) ]

可选的 errornumber参数 可以是任何有效的错误号。 如果 错误代码是有效的错误代码，但未被定义，则“错误”将返回字符串“由应用程序定义或由对象定义的错误”。

如果错误代码无效，将发生错误。 如果省略了错误代码，则将返回与最近的运行时错误相对应的消息。 如果没有发生运行时错误，或错误代码为 0，“错误”将返回零长度字符串 ("")。

备注

检查“错误”对象的属性设置以标识最近的运行时错误。 “错误”函数的返回值与“错误”对象的“说明”属性相对应。

示例

此示例使用了“错误”函数以打印与指定错误代码相对应的错误消息。

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

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。