LibreOfficeDev 25.2 Hjælp
Aktiverer en fejlhåndteringsrutine efter at en fejl opstår, eller genoptager programudførslen.
On [Local] Error {GoTo Labelname | GoTo 0 | Resume Next}
GoTo Labelname: Hvis en fejl opstår, aktiveres fejlhåndteringsrutinen som begynder ved linje "Labelname".
Resume Next: Hvis en fejl opstår, vil programudførelsen fortsætte med sætningen, som følger efter sætningen i hvilken fejlen er sket.
GoTo 0: Deaktiverer fejlhåndteringen i den aktuelle procedure.
Local: Optional. The keyword is a reminder the statement is local to the routine which invokes it; when the routine exits, this error handling is canceled automatically.
Sub ExampleReset
On Error GoTo ErrorHandler
Dim iNumber As Integer
Dim iCount As Integer
Dim sLine As String
Dim aFile As String
aFile = "C:\Users\ThisUser\data.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "Dette er en linje tekst"
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:
Reset
MsgBox (beskedfelt) "Alle filer bliver lukket", 0, "Fejl"
End Sub