エラー処理（On Error ステートメント / Errオブジェクト）

2015/03/27

On Error ステートメントの使い方

【構文 1】

On Error GoTo line
　　statements（通常の処理）

line:
　　err_statements（エラー発生時の処理）

【構文 2】

On Error Resume Next

【構文 3】

On Error GoTo 0

【各構文の説明】

構文 1 ・・・ On Error GoTo line の後のコード（statements）の中ででエラーが発生した場合、コードを実行する位置が、指定した行ラベル（line:）の位置へと移ります（err_statements を実行）。
構文 2 ・・・実行時エラーが発生してもプログラムを中断せず、エラーが発生したステートメントの次のステートメントから実行を継続します。
構文 3 ・・・現在のプロシージャに含まれる使用可能なエラー処理ルーチンを無効にします。

On Error ステートメント使用例

On Error GoTo ステートメント

　

Sub sample_error01()

    Dim i
    
    On Error GoTo ErrLabel
    
    For i = 1 To 4
        Worksheets(i).Activate
    Next
    
    Exit Sub
    
ErrLabel:

    MsgBox "エラー番号：　" & Err.Number & Chr(13) & Err.Description

End Sub

Sub sample_error01()

Dim i

On Error GoTo ErrLabel

For i = 1 To 4

Worksheets(i).Activate

Exit Sub

ErrLabel:

MsgBox "エラー番号：　" & Err.Number & Chr(13) & Err.Description

End Sub

Err.Number、Err.Description は、Err オブジェクトを参照

ここでは、ワークシートは、Sheet1,Sheet2,Sheet3 の3つのシートが存在。Worksheets(4) をアクティブにしようとするとエラーが発生します。

On Error GoTo ステートメント実行結果

On Error Resume Next ステートメント

　

Sub sample_error02()

    Dim i
    Dim StrShtName As String
    
    On Error Resume Next
    
    For i = 0 To 3
        StrShtName = StrShtName & Chr(13) & Worksheets(i).Name
    Next i
    
    MsgBox StrShtName
        
End Sub

Sub sample_error02()

Dim i

Dim StrShtName As String

On Error Resume Next

For i = 0 To 3

StrShtName = StrShtName & Chr(13) & Worksheets(i).Name

Next i

MsgBox StrShtName

End Sub

ここでは、ワークシートは、Sheet1,Sheet2,Sheet3 の3つのシートが存在。ワークシートを番号で指定する場合（Worksheetsコレクション）は、一番左側のシートから順に、１、２、３・・・と数えます。上記例で、Worksheets(0) は存在しないのでエラーが発生しますが、On Error Resume Next ステートメント では、エラーが発生しても中断せず、その次のステートメントから実行を継続します。

On Error Resume Next ステートメント実行結果

On Error GoTo 0 ステートメント

　

Sub sample_error03()

    
    On Error GoTo ErrLabel
    
    Worksheets("Sheet10").Activate
  
    On Error GoTo 0
    
    MsgBox Range("A1").Value
    
    Exit Sub

ErrLabel:
    MsgBox "エラー番号：　" & Err.Number & Chr(13) & Err.Description

End Sub

Sub sample_error03()

On Error GoTo ErrLabel

Worksheets("Sheet10").Activate

On Error GoTo 0

MsgBox Range("A1").Value

Exit Sub

ErrLabel:

MsgBox "エラー番号：　" & Err.Number & Chr(13) & Err.Description

End Sub

ここでは、ワークシートは、Sheet1,Sheet2,Sheet3 の3つのシートが存在。存在していない Sheet10 をアクティブにしようとするとエラーが発生します。

On Error GoTo 0 ステートメント実行結果

Err オブジェクト

【書式】

＜プロパティ＞
result = Err.Property

＜メソッド＞
Err.Method

実行時エラーが発生すると、そのエラーを識別するための情報など、エラー処理で利用可能な情報が、Err オブジェクトに格納されます。

【Err オブジェクトのプロパティ・メソッド一覧】

プロパティ(Property)	内　容	戻値型(result)
Number	エラーの種類を表すエラー番号	Long 型
Description	エラー内容	String 型
HelpFile	ヘルプファイル	String 型
HelpContext	ヘルプファイルのトピックに対応するコンテキスト番号	Long 型
LastDLLError	最後にダイナミックリンクライブラリ（DLL）を呼び出したときのエラーコード	Long 型
Source	エラーの発生元のオブジェクトまたはアプリケーションの名前を示す文字列式	String 型

メソッド(Method)	内　容	戻値型(result)
Clear	エラー情報をクリア	–
Raise	実行時エラーを生成	–