IBM Lotus Symphony
|
Activa a rotina para tratamento de erros depois de ocorrer um erro ou retoma a execução do programa.
On {Error GoTo Labelname | GoTo 0 | Resume Next}
GoTo Labelname: Se ocorrer um erro, activa a rotina para tratamento de erros que começa na linha "Labelname".
Resume Next: Se ocorrer um erro, a execução do programa prossegue com a instrução que se segue à instrução na qual ocorreu o erro.
GoTo 0: Desactiva a rotina de tratamento de erros no procedimento em curso.
A instrução On Error GoTo é utilizada especificamente para reagir a erros que ocorram numa macro. A instrução deverá ser inserida no início do procedimento (numa rotina para tratamento de erros 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"
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:
Repor
MsgBox "All files will be closed",0,"Error"
End Sub