IBM Lotus Symphony
|
Aktiverer en fejlhåndteringsrutine, når der opstår en fejl, eller fortsætter udførelsen af programmet.
On {Error GoTo Etiket | GoTo 0 | Resume Next}
GoTo Etiket: Hvis der opstår en fejl, aktiveres den fejlhåndteringsrutine, der begynder på linje "Etiket".
Resume Next: Hvis der opstår en fejl, fortsætter udførelsen af programmet med sætningen efter den sætning, hvor fejlen er opstået.
GoTo 0:: Deaktiverer fejlhåndteringen i den aktuelle procedure.
Sætningen On Error GoTo bruges til at reagere på fejl, der opstår i en makro. Sætningen skal indsættes i begyndelsen af en procedure (i en lokal fejlhåndteringsrutine) eller i begyndelsen af et modul.
Sub EksempelReset
On Error Goto ErrorHandler
Dim iNummer As Integer
Dim iAntal As Integer
Dim sLinje As String
Dim aFil As String
aFil = "c:\data.txt"
iNummer = Freefile
Open aFil For Output As #iNummer
Print #iNummer, "Dette er en tekstlinje"
Close #iNummer
iNummer = Freefile
Open aFil For Input As iNummer
For iAntal = 1 to 5
Line Input #iNummer, sLinje
If sLinje <>"" then
rem
End If
Next iAntal
Close #iNummer
Exit Sub
ErrorHandler:
Nulstil
MsgBox "Alle filer lukkes",0,"Fejl"
End Sub