Error 函數

傳回對應至指定 錯誤號碼的錯誤訊息。

語法

錯誤 [ (errornumber) ]

選擇性的 errornumber 自變數可以是 任何有效的錯誤號碼。 如果 errornumber 是有效的錯誤號碼，但未定義， Error 會傳回字串“Application-defined or object-defined error”。

如果 errornumber 無效，就會發生錯誤。 如果省略 errornumber ，則會傳回對應至最近 運行時錯誤的 訊息。 如果未發生運行時錯誤，或 errornumber 為 0，Error 會傳回長度為零的字串 (“”) 。

註解

檢查 Err 物件的屬性設定，以識別最新的運行時錯誤。 Error 函式的傳回值會對應至 Err 物件的 Description 屬性。

範例

這個範例會使用 Error 函式來列印對應至指定之錯誤號碼的錯誤訊息。

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

另請參閱

• 函式 (Visual Basic for Applications)

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。