Err 对象

  • 项目

包含有关运行时错误的信息。

备注

Err 对象的属性由错误生成器（Visual Basic、对象或程序员）设置。

Err 对象的默认属性为 Number。 由于默认属性可由对象名称 Err 表示，因此无需修改使用 Err 函数或 Err 语句编写的早期代码。

当发生运行时错误时， Err 对象的属性将由唯一标识该错误的信息以及可用于处理该错误的信息填充。 若要在代码中生成运行时错误，请使用 Raise 方法。

Err 对象的属性重置为零或零长度字符串 (“”) 在错误处理例程中的 Exit Sub、Exit 函数、Exit 属性或 Resume Next 语句之后。 在任何错误处理例程之外使用任何形式的 Resume 语句均不会重置 Err 对象的属性。 Clear 方法可用于显式重置 Err。

使用 Raise 方法（而不是 Error 语句）为系统错误和类模块生成运行时错误。 在其他代码中使用 Raise 方法取决于要返回的信息的丰富性。

Err 对象是具有全局范围的固有对象。 无需在代码中创建它的实例。

示例

此示例在构造错误消息对话框中使用 Err 对象的属性 (Number、 Description、 HelpContext、 HelpFile、 Source) 。

请注意，如果您先使用 Clear 方法，则在使用 Raise 方法生成 Visual Basic 错误时，Visual Basic 默认值将成为 Err 对象的属性。

Dim Msg
' If an error occurs, construct an error message
On Error Resume Next    ' Defer error handling.
Err.Clear
Err.Raise 6    ' Generate an "Overflow" error.
' Check for error, then show message.
If Err.Number <> 0 Then
    Msg = "Error # " & Str(Err.Number) & " was generated by " _
            & Err.Source & Chr(13) & Chr(13) & Err.Description
    MsgBox Msg, vbMsgBoxHelpButton, "Error", Err.Helpfile, Err.HelpContext
End If

另请参阅

支持和反馈

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