エラー終了させたい時のコード
Sub errorTest() 'エラー終了 Err.Description = "XXXXエラーが発生しました" Err.Raise (60000) ' 数値は適当に MsgBox (Err.Description) MsgBox ("ここにはこない") End Sub
これを実行すると、5行目の Err.Raise (60000)で処理が終了し、以下のダイアログが表示されます。
8行目の MsgBox (“ここにはこない”) は実行されません。
SubやFunctionの中でも呼び出し元に戻ること無く終了します。
ダイアログの[デバッグ(D)]ボタンをクリックすると、エラーを発生させた、
5行目の Err.Raise (60000) を表示します。
コメント