人力検索はてな >
インターネット >
VBAにおけるOn Error処理の上書きについて。下記マクロ実行時、「!!」の箇…

183

178もっと見る

81pt

インターネットウェブ制作

VBAにおけるOn Error処理の上書きについて。

下記マクロ実行時、「!!」の箇所でnormalErrorに飛ばしたいのですが、fatalErrorに飛びます。
normalErrorに飛ばしたいときの表現ってありますか？初歩的な質問かもしれませんがよろしくお願いします。
Sub test()
Dim i As Long
On Error GoTo fatalError
On Error GoTo normalError
i = 1 / 0 '!!
normalError:
fatalError:
End Sub

回答の条件

1人2回まで
13歳以上

登録：2010/11/19 03:44:31
終了：2010/11/23 02:11:57

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

No.3

SALINGER34549692010/11/19 12:12:23

27pt

エラーを切り分ける場合、エラーがどのコードで起こったかで分けるか、エラーの種類で分けるかの２通りになります。

　

１　コードの場所の場合

on error goto 0 でエラー処理を停止させ該当の場所だけを違うエラー処理にする。

Sub test()
    Dim i As Long
    
    On Error GoTo normalError
    '処理
    On Error GoTo 0
    
    On Error GoTo fatalError
    i = 1 / 0 '!!
    On Error GoTo 0
    
    On Error GoTo normalError
    '処理
    Exit Sub
    
normalError:
    'エラー処理
    Exit Sub
fatalError:
    'エラー処理
End Sub

２　エラーの種類で分ける。

on error resume next でエラーが起きても処理を止めずに、err.numbarでエラーの種類を判断します。

Sub test2()
    Dim i As Long
    
    On Error Resume Next
    
    i = 1 / 0  '!!
    
    Select Case Err.Number
        Case 11
            GoTo normalError
        Case 13
            GoTo fatalError
    End Select
    
    On Error GoTo 0
    
    '処理
    Exit Sub
    
normalError:
    'エラー処理
    Exit Sub
fatalError:
    'エラー処理
End Sub

11というのは０の除算のエラーで、１３は型の不一致です。

エラーの種類はこちらをみてください。

http://support.microsoft.com/kb/146864/ja

ありがとうございます。

err.number

で分かるのですね。

On Error GoTo 0

の意味も初めて知りました。

コードの書き方として参考にさせて頂きました。ありがとうございます。

2010/11/19 15:21:29

No.1

spyglass455292010/11/19 04:35:36

27pt

fatalErrorとの違いは何でしょうか？

normalErrorだけなら単純なエラー処理は出来るのですが。

--------------------------------

Sub OnErrorTest()

　　　On Error GoTo normalError

　　　i = 1 / 0 '!!

Exit Sub

normalError:

　　　MsgBox "エラー番号:" & Err.Number

　　　MsgBox "エラー内容：" & Err.Description

　　　Resume Next

End Sub

--------------------------------

ありがとうございます。具体的には以下のイメージです。

sub main()

on error goto fatalerror

shori1()

shori2()

fatalerror:

debug.print "致命的エラーです。"

end sub

sub shori1()

on error goto shori1error

i=2/0

shori1error:

debug.print "計算ミスです。処理を続行します。"

end sub

sub shori2()

debug.print "以下の処理は絶対に成功させなければならないので、ミスったら致命的エラーになります。"

'いろんな処理

end sub

回答３まで頂いた後での追記：上記サンプルコードは例が悪いです。無視して下さい。やりたいことが逆に難しくなってしまいました。混乱させてしまう結果となり、すみません。

また、質問文にあるコードで

「「!!」の箇所でnormalErrorに飛ばしたい」とありますが、

質問文のコードでnormalErrorにちゃんと飛んでいるようです（F8でステップ実行したときに、エラー箇所でF8を押したときにEnd Subにカーソルが行くので、normalErrorではなくてfatalErrorに飛んでいるものと思った。これではエラー再現できていることになりません・・・）。

質問がまずかったのですが、質問の趣旨はまったく違うものです。

以下、少し長いですが質問のコードの構造（1000行以上あるのでここにコピーペーストできませんので、骨組みの概略だけ書きます）を書かせて頂きます。

Sub testParent()

On Error GoTo myError

Call testChild

myError:

Debug.Print "ここに飛ぶはずが無い。"

End Sub

Sub testChild()

Dim i As Long

On Error GoTo error1

Debug.Print "何かの命令処理。"

On Error GoTo 0 'この行は挿入しなくても、飛ぶ箇所は同じなんですね。

On Error GoTo error2

Debug.Print "何かの命令処理。"

On Error GoTo 0 'この行は挿入しなくても、飛ぶ箇所は同じなんですね。

On Error GoTo error3

Debug.Print "何かの命令処理。"

On Error GoTo 0 'この行は挿入しなくても、飛ぶ箇所は同じなんですね。

On Error GoTo error4

Debug.Print "何かの命令処理。"

On Error GoTo 0 'この行は挿入しなくても、飛ぶ箇所は同じなんですね。

On Error GoTo error5

'i = 1 / 0 'もしこの処理を実行すれば、ちゃんとerror5に飛んでくれる。

On Error GoTo 0 'この行は挿入しなくても、飛ぶ箇所は同じなんですね。

On Error GoTo error6

Debug.Print "何かの命令処理。"

On Error GoTo 0 'この行は挿入しなくても、飛ぶ箇所は同じなんですね。

On Error GoTo error7

Debug.Print "何かの命令処理。"

On Error GoTo 0 'この行は挿入しなくても、飛ぶ箇所は同じなんですね。

On Error GoTo error8

Debug.Print "何かの命令処理。"

On Error GoTo 0 'この行は挿入しなくても、飛ぶ箇所は同じなんですね。

On Error GoTo error9

Debug.Print "何かの命令処理。"

On Error GoTo 0 'この行は挿入しなくても、飛ぶ箇所は同じなんですね。

On Error GoTo error10

Debug.Print "何かの命令処理。"

On Error GoTo 0 'この行は挿入しなくても、飛ぶ箇所は同じなんですね。

On Error GoTo error11

Debug.Print "何かの命令処理。"

On Error GoTo 0 'この行は挿入しなくても、飛ぶ箇所は同じなんですね。

On Error GoTo error12

On Error GoTo 0 'この行は挿入しなくても、飛ぶ箇所は同じなんですね。

On Error GoTo error13

On Error GoTo 0 'この行は挿入しなくても、飛ぶ箇所は同じなんですね。

On Error GoTo error14

On Error GoTo 0 'この行は挿入しなくても、飛ぶ箇所は同じなんですね。

On Error GoTo error15

'i = 1 / 0 '【エラー再現できませんでした。】なぜかmyErrorに飛ぶことがある。しかも、コードをまったく変えずにF8で実行すると、ちゃんとerror15に飛ぶ。

On Error GoTo 0 'この行は挿入しなくても、飛ぶ箇所は同じなんですね。

On Error GoTo error16

i = 1 / 0 '【エラー再現できませんでした。】なぜか必ずmyErrorに飛ぶ。コードをまったく変えずにF8で実行しても、myErrorに飛ぶ。

error1:

Debug.Print

Exit Sub

error2:

Debug.Print

Exit Sub

error3:

Debug.Print

Exit Sub

error4:

Debug.Print

Exit Sub

error5:

Debug.Print

Exit Sub

error6:

Debug.Print

Exit Sub

error7:

Debug.Print

Exit Sub

error8:

Debug.Print

Exit Sub

error9:

Debug.Print

Exit Sub

error10:

Debug.Print

Exit Sub

error11:

Debug.Print

Exit Sub

error12:

Debug.Print

Exit Sub

error13:

Debug.Print

Exit Sub

error14:

Debug.Print

Exit Sub

error15:

Debug.Print "通常はここに飛びますが、条件によって飛びません。"

Exit Sub

error16:

Debug.Print "通常はここに飛びますが、飛んでくれません。"

End Sub

2010/11/19 15:14:44

No.2

きゃづみぃ1353911982010/11/19 06:43:28

27pt

http://www.red.oit-net.jp/tatsuya/vb/Err.htm

http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_140_02.html

一番目の回答にあるプログラムを一部修正して実行すると

計算ミスです。処理を続行します。

以下の処理は絶対に成功させなければならないので、ミスったら致命的エラーになります。

致命的エラーです。

という結果になります。

修正箇所は shori1()などを Call shori1と変えただけです。

あとこのプログラムでは

shori1()
shori2()
fatalerror:
debug.print "致命的エラーです。"

となってますが

これだと shori1とshori2を呼んだ後に debug.print "致命的エラーです。"を実行してしまいます。

質問にあるのもそうです。

Sub test()
Dim i As Long
On Error GoTo fatalError
On Error GoTo normalError
i = 1 / 0 '!!
normalError:
fatalError:
End Sub

これだと normalError:の後そのままfatalError:を実行してるのではないのでしょうか？

エラー処理でちゃんとジャンプさせるような処理は入れてるのでしょうか？

Resume Nextとか。

ありがとうございます。その通りです。

きちんと Exit Sub 処理を入れなければなりませんね。

初歩的なエラーの指摘をわざわざしていただく結果となり、たいへん申し訳ありませんでした。

2010/11/19 15:20:30

No.3

SALINGER34549692010/11/19 12:12:23ここでベストアンサー

27pt

エラーを切り分ける場合、エラーがどのコードで起こったかで分けるか、エラーの種類で分けるかの２通りになります。

　

１　コードの場所の場合

on error goto 0 でエラー処理を停止させ該当の場所だけを違うエラー処理にする。

Sub test()
    Dim i As Long
    
    On Error GoTo normalError
    '処理
    On Error GoTo 0
    
    On Error GoTo fatalError
    i = 1 / 0 '!!
    On Error GoTo 0
    
    On Error GoTo normalError
    '処理
    Exit Sub
    
normalError:
    'エラー処理
    Exit Sub
fatalError:
    'エラー処理
End Sub

２　エラーの種類で分ける。

on error resume next でエラーが起きても処理を止めずに、err.numbarでエラーの種類を判断します。

Sub test2()
    Dim i As Long
    
    On Error Resume Next
    
    i = 1 / 0  '!!
    
    Select Case Err.Number
        Case 11
            GoTo normalError
        Case 13
            GoTo fatalError
    End Select
    
    On Error GoTo 0
    
    '処理
    Exit Sub
    
normalError:
    'エラー処理
    Exit Sub
fatalError:
    'エラー処理
End Sub

11というのは０の除算のエラーで、１３は型の不一致です。

エラーの種類はこちらをみてください。

http://support.microsoft.com/kb/146864/ja

ありがとうございます。

err.number

で分かるのですね。

On Error GoTo 0

の意味も初めて知りました。

コードの書き方として参考にさせて頂きました。ありがとうございます。

2010/11/19 15:21:29

Silvanus 2010/11/19 08:27:28

きっとtakntさんが既にお答えになっていらっしゃると思いますが、
エラーをトラップする段階では、そのエラーが
「fatalなもの(具体的にはどういう意味でしょう？)であるか否か」を
区別することはできません。
エラーをトラップして飛んだ先(エラー処理ルーチン)で、エラーの中身を
Err.Number(ErrオブジェクトのNumberプロパティ)等を用いて調べることによって
ReoReo7さんが仰せのところの「fatal or not」の切り分けを行ないます。
ReoReo7 2010/11/19 15:18:34

コメントありがとうございます。
Err.Numberを見ることで切り分けができるというご指摘ありがとうございました。
質問とは、「fatal or notを見分けるにはどうしたらよいのか？」
という質問ではなく、むしろOn Error GoTo文のスコープに関する、ちょっとややこしい質問だと思います。

エラーの構造は以下に示します。
エラー再現できていないので、非常に答えにくいと思います。
もしお心当たりのことがありましたらどなたかコメント頂けるとうれしいですが、こちらの思い違いの可能性もありますので思い当たることがなければ無視して頂いて結構です。
ReoReo7 2010/11/19 15:34:27

上記コメントでエラー再現できていないと書きましたが、
エラー再現できました。
以下の通りです。
2回目のエラーでうまく飛ばないようです。
原因を教えて頂ければうれしいです。

Sub testParent()
On Error GoTo myError
Call testChild
Exit Sub
myError:
Debug.Print "ここに飛ばせたく無い。"
End Sub

Sub testChild()
Dim i As Long
On Error GoTo error1
i = 1 / 0
Debug.Print "何かの命令処理。"
error1:
On Error GoTo 0 'この行は挿入しなくても、飛ぶ箇所は同じなんですね。
On Error GoTo error2
i = 1 / 0
Debug.Print "何かの命令処理。"
error2:
Debug.Print "この処理を必ず実行させたい。"
End Sub
ReoReo7 2010/11/19 15:41:22

何とか、自力でできました。

http://hanatyan.sakura.ne.jp/dotnet/err01.htm#no3
「
On Error GoTo -1
　　現在のプロシージャで有効になっていた例外を無効にし、Nothing にリセットされます。
」
を使えばよいんですね。

Sub testParent()
On Error GoTo myError
Call testChild
Exit Sub
myError:
Debug.Print "ここに飛ばせたく無い。"
End Sub

Sub testChild()
Dim i As Long
On Error GoTo error1
i = 1 / 0
Debug.Print "何かの命令処理。"
error1:
On Error GoTo -1 'この行を挿入しないと、myErrorに飛んでしまうのですね。
On Error GoTo error2
i = 1 / 0
Debug.Print "何かの命令処理。"
Exit Sub '一応、追加（大差ありませんが）
error2:
Debug.Print "この処理がやっと実行できました。"
End Sub
Silvanus 2010/11/19 21:02:43

あと、エラー処理ルーチンから復帰する際には
resumeステイトメントを使うのが本筋ですよ。
"On Error GoTo -1"っていうのは初めて知りましたｗ。
きゃづみぃ 2010/11/19 22:38:53

エラー処理の中でもエラー処理ですか。
どこまでエラー処理するんでしょうね。
ReoReo7 2010/11/20 01:16:55

＞resumeステイトメントを使うのが本筋ですよ。
ありがとうございます。

＞エラー処理の中でもエラー処理ですか。
＞どこまでエラー処理するんでしょうね。
objIE.Document.All.Item(i).nodeName
を拾ってそれぞれ格納しています。
エラーの場合、無視して次のパラメータを拾っています。
phpで言うissetみたいな表現を使って、それで存在を調べて、エラーを回避するのが普通なんでしょうか・・・。よく分からないので、存在しないときは無視して次の処理、ということにしています。

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

ウォッチリスト

知りたいことを検索してみよう