LibreOffice 25.2 Hjelp
Aktiverer en feilhåndteringsrutine etter at en feil oppstår, eller gjenopptar programkjøring.
Ved [Lokal] feil {GoTo Etikettnavn | Gå til 0 | Fortsett neste}
Gå til etikettnavn: Hvis det oppstår en feil, aktiverer du feilhåndteringsrutinen som starter på linjen "Etikettnavn".
Fortsett neste: Hvis det oppstår en feil, fortsetter programkjøringen med setningen som følger setningen der feilen oppstod.
Gå til 0: Deaktiverer feilbehandleren i gjeldende prosedyre.
Lokalt: Valgfritt. Nøkkelordet er en påminnelse om at uttalelsen er lokal for rutinen som påkaller den; når rutinen avsluttes, avbrytes denne feilhåndteringen automatisk.
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
Skriv ut #iNumber, "Dette er en tekstlinje"
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 "Alle filer vil bli lukket", 0, "Feil"
End Sub