IBM Lotus Symphony
|
Permite uma rotina de tratamento de erro após a ocorrência de um erro ou retoma a execução do programa.
On {Error GoTo Labelname | GoTo 0 | Resume Next}
GoTo Labelname: Se ocorrer um erro, permite que a rotina de tratamento de erro inicie na linha "Labelname".
Resume Next: Se ocorrer um erro, a execução do programa continuará com a instrução que segue a instrução na qual o erro ocorreu.
GoTo 0: Desativa o manipulador de erros no procedimento atual.
A instrução On Error GoTo é usada para reagir aos erros que ocorrerem em uma macro. A instrução deve ser inserida no início de um procedimento (em uma rotina de tratamento de erro local) ou no início de um módulo.
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"
Fechar #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
Fechar #iNumber
Exit Sub
ErrorHandler:
Reconfigurar
MsgBox "All files will be closed",0,"Error"
End Sub