VBA エラー情報を取得する

はじめに

Excel VBA マクロでエラー情報を取得する方法を紹介します。

Err.Number から、エラー番号を取得できます。

Err.Description から、エラーメッセージを取得できます。

エラーの一覧も紹介します。

エラー情報を取得する

エラー情報を取得するには、エラーをキャッチまたは無視する必要があります。

キャッチしたエラー処理の中で Err オブジェクトからエラー情報を取得できます。

Sub 実行()
On Error GoTo Catch

    Dim i As Integer
    i = "a" ' エラー

    Exit Sub
Catch:

    ' ここでエラー情報を取得できる
    Debug.Print(Err.Description) ' 型が一致しません。
    Debug.Print(Err.Number)      ' 13

End Sub

Err から次の情報を取得できます。

この中でよく使用するのは Err.Description と Err.Number です。これ以外に関数名などが欲しいときは、その情報を取得する処理を自作する必要があります。

開発中はエラー発生時に中断してデバッグできます。

エラー処理専用の関数を作成すると、エラー情報を簡単に表示できます。

Public Sub LogErrorMessage(ByVal funcName As String)

    Dim s As String
    s = "エラーが発生しました。"
    s = s & vbCrLf & "番号：" & Err.Number
    s = s & vbCrLf & "詳細：" & Err.Description
    s = s & vbCrLf & "関数：" & funcName

    ' ログやメッセージを出力する
    Debug.Print(s)
    Dim r As VbMsgBoxResult
    r = MsgBox(s, vbOKOnly Or vbCritical)

End Sub

次のように使用できます。

Sub 実行()
On Error GoTo Catch

    Dim i As Integer
    i = "a" ' エラー

    Exit Sub
Catch:

    Call LogErrorMessage("実行") ' エラー情報を出力する
    ' エラーが発生しました。
    ' 番号：13
    ' 詳細：型が一致しません。
    ' 関数：実行

End Sub

エラー情報を取得できる範囲

Err オブジェクトでエラーを取得できるのは、次の処理をするまでです。それを過ぎるとエラー情報が空になります。

• キャッチした関数を抜ける
• Resume する (Resume Next では空になりません)

Sub 実行()
On Error GoTo Catch

    Dim i As Integer
    i = "a" ' エラー

    Exit Sub
Catch:

    ' End Sub を抜けると Err は空になる

End Sub

Sub 実行()
On Error Resume Next

    Dim i As Integer
    i = "a" ' エラー

    ' End Sub を抜けると Err は空になる

End Sub

Sub 実行()
On Error GoTo Catch 

    Dim i As Integer
    i = "a" ' エラー

Finally:
On Error Resume Next

    ' ここでは Err は空

    Exit Sub  
Catch:

    Resume Finally ' Resume すると Err は空になる
End Sub

Err.Clear メソッドを使用しても Err を空にできます。

エラーの一覧

VBA と同等な Visual Basic 6 のエラーメッセージの一覧があります。ただし英語です。

日本語のドキュメントには番号の順番どおりではなく、メッセージの内容も少し違います。エラー番号で検索すると見つけられると思います。

次の一覧は Err.Raise メソッドからエラーを発生させて取得できるエラー番号とメッセージの一覧です。

上記以外のエラーとして次のエラーを Tipsfound では紹介しています。