Clear 方法

清除 Err 对象的所有属性设置。

语法

对象。清楚

object 始终为 Err 对象。

备注

例如，在您将延迟错误处理与 On Error Resume Next 一起使用时，可在处理错误后使用 Clear 显式清除 Err 对象。 只要执行以下任意语句，就会自动调用 Clear 方法：

• 任何类型的 Resume 语句
• Exit Sub 、 Exit Function 、 Exit Property
• 任何 On Error 语句

注意

[!注释] 当处理在访问其他对象的过程中生成的错误时， On Error Resume Next 构造可能比 On Error GoTo 更可取。 通过在每次与对象进行交互后检查 Err 可消除有关此代码已访问的对象的歧义。 您可以确定在 Err.Number 中放置错误代码的对象，并确定最初生成错误的对象（Err.Source 中指定的对象）。

示例

此示例使用 Err 对象的 Clear 方法将 Err 对象的数值属性重置为零，并将其字符串属性重置为零长度字符串。 如果从以下代码中省略 Clear ，则将在每个循环迭代中显示错误消息对话框（发生错误后），无论连续计算是否生成错误。 您可以单步执行代码以查看效果。

Dim Result(10) As Integer    ' Declare array whose elements 
            ' will overflow easily.
Dim indx
On Error Resume Next    ' Defer error trapping.
Do Until indx = 10
    ' Generate an occasional error or store result if no error.
    Result(indx) = Rnd * indx * 20000
    If Err.Number <> 0 Then
        MsgBox Err, , "Error Generated: ", Err.HelpFile, Err.HelpContext
        Err.Clear    ' Clear Err object properties.
    End If
    indx = indx + 1
Loop

另请参阅

• 语句 (Visual Basic for Applications)
• 对象 (Visual Basic for Applications)

支持和反馈

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