【Excel VBA】エラーハンドリングのベストプラクティス【マクロ】

' データベース関連のエラー
Public Const ERR_DB_CONNECTION_FAILED As Long = 100000
Public Const ERR_DB_QUERY_FAILED As Long = 100001

' ファイル操作関連のエラー
Public Const ERR_FILE_NOT_FOUND As Long = 101000
Public Const ERR_FILE_READ_FAILED As Long = 101001

' ユーザー認証関連のエラー
Public Const ERR_USER_NOT_AUTHORIZED As Long = 102000
Public Const ERR_USER_NOT_FOUND As Long = 102001

' ネットワーク関連のエラー
Public Const ERR_NETWORK_TIMEOUT As Long = 103000
Public Const ERR_NETWORK_UNREACHABLE As Long = 103001

Err.Raise ERR_DB_CONNECTION_FAILED, "ConnectDatabase", "データベースへの接続に失敗しました。"

Sub ConnectDatabase()
    On Error GoTo ErrorHandler

    ' データベースエラーを発生させる
    Err.Raise ERR_DB_CONNECTION_FAILED, "ConnectDatabase", "データベースへの接続に失敗しました。"

    Exit Sub

ErrorHandler:
    Select Case Err.Number
        Case ERR_DB_CONNECTION_FAILED
            MsgBox "ERR_DB_CONNECTION_FAILED: " & Err.Description
        Case ERR_DB_QUERY_FAILED
            MsgBox "ERR_DB_QUERY_FAILED: " & Err.Description
        Case Else
            MsgBox "予期せぬエラー: " & Err.Description
    End Select

    Err.Clear
End Sub

Sub LogError(errorNumber As Long, errorDescription As String)
    ' ログファイルにエラー情報を書き込む
    ' または、データベースに記録する
End Sub

If Err.Number = ERR_DB_CONNECTION_FAILED Then
    ' エラー処理
    Err.Raise Err.Number, Err.Source, Err.Description
End If

Sub UpperLevelFunction()
    On Error GoTo ErrorHandler
    
    ' この関数でエラー発生
    Call LowerLevelFunction()
    
    ' 正常終了時の処理
    MsgBox "処理が正常に完了しました"
    Exit Sub

ErrorHandler:
    ' 上位モジュールでのエラー処理
    Select Case Err.Number
        Case ERR_DB_CONNECTION_FAILED
            MsgBox "DB接続エラーが発生しました: " & Err.Description
        Case ERR_DB_QUERY_FAILED
            MsgBox "DBクエリエラーが発生しました: " & Err.Description
        Case Else
            MsgBox "予期せぬエラーが発生しました: " & Err.Description & " (エラー番号: " & Err.Number & ")"
    End Select
    
    ' エラー情報をクリア
    Err.Clear
End Sub

Sub LowerLevelFunction()
    On Error GoTo ErrorHandler

    ' 処理
    Err.Raise 1001, "LowerLevelFunction", "下位モジュールでのエラー"

    Exit Sub

ErrorHandler:
    MsgBox "エラー: " & Err.Description
    Err.Clear
    Exit Sub
End Sub

Sub ConnectDatabase()
    On Error GoTo ErrorHandler

    ' 正常終了時の処理
    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    conn.Open "connection string"

    GoTo ExitSub

ErrorHandler:
    ' エラー処理
    Resume ExitSub

ExitSub:
    If Not conn Is Nothing Then
        If conn.State = adStateOpen Then conn.Close
        Set conn = Nothing
    End If
    Exit Sub

MsgBox "データの保存中にエラーが発生しました。ネットワーク接続を確認してください。", vbExclamation, "エラー"