物件
一律是
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
陳述式 (Visual Basic for Applications)
物件 (Visual Basic for Applications)
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。
