IBM Lotus Symphony


On Error GoTo ...Resume ステートメント [実行時]

エラー発生時のエラーハンドリング用ルーチンおよび、プログラムの実行再開を指定します。

構文:

On {Error GoTo Labelname | GoTo 0 | Resume Next}

パラメータ:

GoTo Labelname: エラー発生時、「Labelname」で指定されるエラーハンドリング用ルーチンを使用可能にします。

Resume Next: エラー発生時、エラー発生行の次のステートメントからプログラムを継続実行させます。

GoTo 0: 現在のプロシージャ中でのエラーハンドラを使用不可にします。

On Error GoTo ステートメントは、マクロ実行時にエラーが発生した場合の処理を行うために使用します。ステートメントの記述位置は、プロシージャの先頭部 (局所用のエラーハンドリング用ルーチン内) または、モジュールの先頭部とする必要があります。

例:

Sub ExampleReset

On Error Goto ErrorHandler

Dim iNumber As Integer

Dim iCount As Integer

Dim sLine As String

Dim aFile As String

aFile = "c:¥data.txt"

iNumber = Freefile

Open aFile For Output As #iNumber

Print #iNumber, "This is a line of text"

Close #iNumber

iNumber = Freefile

Open aFile For Input As iNumber

For iCount = 1 to 5

Line Input #iNumber, sLine

If sLine <>"" then

Rem

end if

Next iCount

Close #iNumber

Exit Sub

ErrorHandler:

リセット

MsgBox "All files will be closed",0,"Error"

End Sub


製品フィードバック | その他の資料 | 商標