Clear 方法

清除Err物件的所有屬性設定。

語法

物件。清楚

物件一律是Err物件。

註解

使用 Clear 在處理錯誤之後明確清除 Err 物件，例如，當您使用延遲的錯誤處理搭配 On Error Resume Next 時。 每當執行下列任何語句時，就會自動呼叫Clear方法：

• 任何類型的 Resume 語 句
• Exit Sub、 Exit 函式、 Exit 屬性
• Any 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 支援與意見反應。