エクセルVBA 「On Error GoTo 0」について

質問

「On Error GoTo 」ステートメントの意味は、だいたい理解しています。
「On Error GoTo 0」 ステートメントについて、ご教授お願いします。
参考書には「エラーのトラップ処理を無効にする」と載っていましたが、よくわかりません。
具体的にどのような使い方をするのか、簡単なコードで説明していただければ幸いです。
よろしくお願いします。

回答No.1

lark_0925

あるプロシジャーの先頭で
sub aaa()
　　on error resume next
　　処理コード
　　on error goto 0
end sub
実は、「on error goto 0」を入れなくても
プロシージャの終了時に自動的に無効になります。
でも、私は付けています。
これは、大昔のBasicの名残です。

後は、エラー処理ルーチンを使わないと拾えないエラーと
それ以外のバグによるエラーをはっきりさせるために
エラー処理を必要最小限にする場合は、
on error goto 0　を使います。

sub aaa()
on error reasume next
dim mazu as string
open "c:\aaa.txt" as input #1
if err.number=0 then
　　input #1,kazu
　　close #1
　　end if
on error goto 0
msgbox 5/cdbl(kazu)
end sub

なんて、コードで変数kazuに"0"が入っていたら、デバッグ時は
エラーになってくれないとバグが発見しにくいですよね？
（on error goto 0がないとエラーにならないので見つけにくい）

こんな使い道がありますが、いかがですか？

補足

ご回答ありがとうございます。
ご提示いただいたコードaaaを試したくてコピペしたらば、
「on error reasume next」と「open "c:\aaa.txt" as input #1」が
赤字になり実行できません。
なぜでしょうか？
よろしくお願いします。