PART 02 — エラーハンドリング
On Error GoTo / Resume Next と Err オブジェクト

Option Explicit

Sub OpenFileExample(ByVal filePath As String)
    Dim wb As Workbook

    On Error GoTo ErrHandler   ' エラーハンドラを登録

    Set wb = Workbooks.Open(filePath)
    ' ── 正常処理 ──
    MsgBox "開きました: " & wb.Name
    wb.Close SaveChanges:=False

    Exit Sub   ' ← 正常終了時はここで抜ける（ErrHandler を実行しない）

ErrHandler:
    MsgBox "エラー " & Err.Number & ": " & Err.Description, vbCritical
    ' 必要に応じてリソース解放
    If Not wb Is Nothing Then wb.Close SaveChanges:=False
End Sub

Option Explicit

' ── シート存在確認の例 ──
Function SheetExists(ByVal sheetName As String) As Boolean
    Dim ws As Worksheet

    On Error Resume Next
    Set ws = ThisWorkbook.Worksheets(sheetName)
    On Error GoTo 0   ' ← 必ず解除する

    SheetExists = Not (ws Is Nothing)
End Function

' ── 使用例 ──
Sub CheckSheet()
    If SheetExists("データ") Then
        MsgBox "シートがあります"
    Else
        MsgBox "シートが存在しません"
    End If
End Sub

Option Explicit

Sub ErrObjectExample()
    On Error GoTo ErrHandler

    ' 意図的にエラーを発生させる
    Err.Raise 9, "ErrObjectExample", "独自エラーメッセージ"

    Exit Sub

ErrHandler:
    Debug.Print "番号: " & Err.Number       ' → 9
    Debug.Print "内容: " & Err.Description  ' → インデックスが有効範囲にありません
    Debug.Print "発生元: " & Err.Source     ' → ErrObjectExample
    Err.Clear  ' エラー情報をクリア
End Sub

Option Explicit

Sub ProcessWithCleanup()
    Dim conn As Object   ' DB接続などのリソース
    Dim errNum As Long
    Dim errMsg As String

    On Error GoTo ErrHandler

    Set conn = CreateObject("ADODB.Connection")
    conn.Open "接続文字列"

    ' ── メイン処理 ──
    ' ...

Cleanup:
    ' 正常・エラー問わず必ず実行
    If Not conn Is Nothing Then
        If conn.State = 1 Then conn.Close  ' 接続中なら閉じる
        Set conn = Nothing
    End If
    If errNum <> 0 Then
        MsgBox "エラー " & errNum & ": " & errMsg, vbCritical
    End If
    Exit Sub

ErrHandler:
    errNum = Err.Number
    errMsg = Err.Description
    Resume Cleanup  ' ← Cleanup ラベルへジャンプ
End Sub

Option Explicit

Sub Parent()
    On Error GoTo ErrHandler
    Call Child   ' Child 内でエラーが発生
    Exit Sub
ErrHandler:
    MsgBox "Parent がキャッチ: " & Err.Description
End Sub

Sub Child()
    ' On Error がない → エラーは Parent に伝播する
    Dim x As Long
    x = 1 / 0   ' ゼロ除算エラー
End Sub