ホーム > カテゴリ > Excel・VBA >

エラートラップ[ExcelのVBA]

エラートラップとはプログラムでエラーをキャッチするものです。エラーになった行は実行せずにユーザーにエラーメッセージを表示する事が多いです。また、システムによってはエラーのログとしてファイルやデータベースにエラー箇所、内容、時間などを保存する事もあります。

Wikipediaで補足:エラートラップ

エラートラップの基本

' エラートラップの基本
Private Sub CommandButton1_Click()
   Dim X As Long
   
   ' エラートラップの開始
   On Error GoTo ErrorTrap
   
     ' 長整数型に文字列型を代入(意図的なエラー)
     ' ※エラーで実行処理が「ErrorTrap：」へ移動する
     X = "あいうえお"
   
     ' 上の行がエラーなので実行されない
     Debug.Print (X)
   
  ' エラーがない場合に次の行(ErrorTrap:)を実行しないようにする
   Exit Sub

' エラー時の処理
ErrorTrap:
   ' Err.Numberはエラー番号
   ' Err.Descriptionはエラー内容
   Debug.Print "エラー番号：" & Err.Number & vbCrLf & Err.Description
End Sub

実行すると次の結果になります。

エラートラップは

On Error GoTo ラベル名

を宣言した行からエラートラップの開始となります。実行途中でエラーが発生した場合はエラー行を無視して

ラベル名:

から実行が再開されます。

エラー行を無視する

Private Sub CommandButton1_Click()
   Dim X As Long
   
   'エラーが発生した場合にエラー行を無視して実行を継続する
   On Error Resume Next
   
   X = 12345
   X = "あいうえお"
   
   Debug.Print (X)
   
End Sub

実行すると次の結果になります。

エラー番号からエラー内容の取得

Private Sub CommandButton1_Click()

  ' エラー番号:7のエラー内容を取得する
  Debug.Print Error(7)

End Sub

実行すると次の結果になります。

エラー番号とエラー内容の一覧

番号エラー内容
1アプリケーション定義またはオブジェクト定義のエラーです。
2アプリケーション定義またはオブジェクト定義のエラーです。
3Returnに対応するGoSubがありません。
4アプリケーション定義またはオブジェクト定義のエラーです。
5プロシージャの呼び出し、または引数が不正です。
6オーバーフローしました。
7メモリが不足しています｡
8アプリケーション定義またはオブジェクト定義のエラーです。
9インデックスが有効範囲にありません。
10この配列は固定されているか、または一時的にロックされています。
110で除算しました。
12アプリケーション定義またはオブジェクト定義のエラーです。
13型が一致しません。
14文字列領域が不足しています。
15アプリケーション定義またはオブジェクト定義のエラーです。
16式が複雑すぎます。
17要求された操作は実行できません。
18ユーザーによる割り込みが発生しました。
19アプリケーション定義またはオブジェクト定義のエラーです。
20エラーが発生していないときにResumeを実行することはできません。
21アプリケーション定義またはオブジェクト定義のエラーです。
22アプリケーション定義またはオブジェクト定義のエラーです。
23アプリケーション定義またはオブジェクト定義のエラーです。
24アプリケーション定義またはオブジェクト定義のエラーです。
25アプリケーション定義またはオブジェクト定義のエラーです。
26アプリケーション定義またはオブジェクト定義のエラーです。
27アプリケーション定義またはオブジェクト定義のエラーです。
28スタック領域が不足しています。
29アプリケーション定義またはオブジェクト定義のエラーです。
30アプリケーション定義またはオブジェクト定義のエラーです。
31アプリケーション定義またはオブジェクト定義のエラーです。
32アプリケーション定義またはオブジェクト定義のエラーです。
33アプリケーション定義またはオブジェクト定義のエラーです。
34アプリケーション定義またはオブジェクト定義のエラーです。
35SubまたはFunctionが定義されていません。
36アプリケーション定義またはオブジェクト定義のエラーです。
37アプリケーション定義またはオブジェクト定義のエラーです。
38アプリケーション定義またはオブジェクト定義のエラーです。
39アプリケーション定義またはオブジェクト定義のエラーです。
40アプリケーション定義またはオブジェクト定義のエラーです。
41アプリケーション定義またはオブジェクト定義のエラーです。
42アプリケーション定義またはオブジェクト定義のエラーです。
43アプリケーション定義またはオブジェクト定義のエラーです。
44アプリケーション定義またはオブジェクト定義のエラーです。
45アプリケーション定義またはオブジェクト定義のエラーです。
46アプリケーション定義またはオブジェクト定義のエラーです。
47DLLのクライアントアプリケーションの数が多すぎます。
48DLL読み込み時のエラーです。
49DLLが正しく呼び出せません。
50アプリケーション定義またはオブジェクト定義のエラーです。
51内部エラーです。
52ファイル名または番号が不正です。
53ファイルが見つかりません。
54ファイルモードが不正です。
55ファイルは既に開かれています。
56アプリケーション定義またはオブジェクト定義のエラーです。
57デバイスI/Oエラーです。
58既に同名のファイルが存在しています。
59レコード長が一致しません。
60アプリケーション定義またはオブジェクト定義のエラーです。
61ディスクの空き容量が不足しています。
62ファイルにこれ以上データがありません。
63レコード番号が不正です。
64アプリケーション定義またはオブジェクト定義のエラーです。
65アプリケーション定義またはオブジェクト定義のエラーです。
66アプリケーション定義またはオブジェクト定義のエラーです。
67ファイルが多すぎます。
68デバイスが準備されていません。
69アプリケーション定義またはオブジェクト定義のエラーです。
70書き込みできません。
71ディスクが準備されていません。
72アプリケーション定義またはオブジェクト定義のエラーです。
73アプリケーション定義またはオブジェクト定義のエラーです。
74ディスク名は変更できません。
75パス名が無効です。
76パスが見つかりません。
77アプリケーション定義またはオブジェクト定義のエラーです。
78アプリケーション定義またはオブジェクト定義のエラーです。
79アプリケーション定義またはオブジェクト定義のエラーです。
80アプリケーション定義またはオブジェクト定義のエラーです。
81アプリケーション定義またはオブジェクト定義のエラーです。
82アプリケーション定義またはオブジェクト定義のエラーです。
83アプリケーション定義またはオブジェクト定義のエラーです。
84アプリケーション定義またはオブジェクト定義のエラーです。
85アプリケーション定義またはオブジェクト定義のエラーです。
86アプリケーション定義またはオブジェクト定義のエラーです。
87アプリケーション定義またはオブジェクト定義のエラーです。
88アプリケーション定義またはオブジェクト定義のエラーです。
89アプリケーション定義またはオブジェクト定義のエラーです。
90アプリケーション定義またはオブジェクト定義のエラーです。
91オブジェクト変数またはWithブロック変数が設定されていません。
92Forループが初期化されていません。
93パターン文字列が不正です。
94Nullの使い方が不正です。
95アプリケーション定義またはオブジェクト定義のエラーです。
96サポートされているイベント受信最大数のイベントが既に発生しているので、オブジェクトのイベントシンクを実行できません。
97オブジェクトが定義クラスのインスタンスではない場合、このオブジェクトに関するフレンド関数は呼び出せません。
98プロパティまたはメソッドの呼び出しの場合には、引数または戻り値としてプライベートオブジェクトへの参照を含めることはできません。
99アプリケーション定義またはオブジェクト定義のエラーです。
100アプリケーション定義またはオブジェクト定義のエラーです。

エラートラップをリセット(無効)する

Private Sub CommandButton1_Click()
  ' エラー行を無視する
  On Error Resume Next
  ' エラートラップを無効にする
  On Error GoTo 0
    ' エラーを発生させる
    Err.Raise 7 ' メモリ不足が実行される
End Sub

実行すると次の結果になります。

エラーが発生した次の行から実行を再開

Private Sub CommandButton1_Click()
   On Error GoTo ErrTrap
     ' エラーを発生させる
     Err.Raise (7)
     Debug.Print "この行が実行されました。"
   Exit Sub

ErrTrap:
    If Err = 7 Then
      Resume Next    ' 発生したエラーが7番の場合は無視して続行
    End If
End Sub

実行すると次の結果になります。

Visual Basicの基礎

変数/定数/リテラル/データ型/有効範囲
配列/動的配列/構造体/列挙型/エスケープシーケンス
算術演算子/比較演算子/データの型変換
制御構造(If/For/Select/While/Do)
Sub/Functionプロシージャ(手続き/関数)
クラスの作成と使い方
ファイルの操作
エラートラップ
基本のまとめ(上級者用)

エクセル講座のクイックリンク

ホーム 新機能 基本(初級) 基本(中級) 基本(上級) 関数 マクロ VBA TIPS





関連記事


前の記事：ファイルの操作(Shift-JIS/UTF8対応)[ExcelのVBA]
次の記事：基本のまとめ(上級者用)[ExcelのVBA]

公開日：2015年06月20日 最終更新日：2015年07月06日
記事NO：01059