LibreOffice 7.5 Help
āĻāĻāĻāĻŋ āϤā§āϰā§āĻāĻŋ āĻā§āĻĄ āĻĒā§āϰāĻĻāĻžāύ āĻāϰ⧠āĻĨāĻžāĻā§ āϝāĻž āĻĒā§āϰā§āĻā§āϰāĻžāĻŽ āĻāĻžāϞāύāĻžāϰ āϏāĻŽā§ āϏāĻāĻāĻāĻŋāϤ āϤā§āϰā§āĻāĻŋ āĻļāύāĻžāĻā§āϤ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
Err
Integer
Err āĻĢāĻžāĻāĻļāύāĻāĻŋ āϤā§āϰā§āĻāĻŋ āύāĻŋāϰā§āϧāĻžāϰāĻŖ āĻāĻŦāĻ āϏāĻāĻļā§āϧāύ āĻā§āϰāĻŋā§āĻžāϰ āĻāύā§āϝ āϤā§āϰā§āĻāĻŋ āĻšā§āϝāĻžāύā§āĻĄāϞāĻŋāĻ āĻ āĻŦā§āϝāĻŦāĻšā§āϤ āĻšā§ā§ āĻĨāĻžāĻā§āĨ¤
Sub ExampleError
on error goto ErrorHandler REM āϤā§āϰā§āĻāĻŋ āĻšā§āϝāĻžāύā§āĻĄāϞāĻžāϰ āϏā§āĻ āĻāĻĒ āĻāϰ⧠āĻĨāĻžāĻā§
Dim iVar as Integer
Dim sVar As String
āĻŦāĻŋāĻĻā§āϝāĻŽāĻžāύ āύ⧠āĻāĻŽāύ āĻāĻāĻāĻŋ āĻĢāĻžāĻāϞā§āϰ āĻāĻžāϰāύ⧠REM Error āĻšā§
iVar = Freefile
Open "\file9879.txt" for Input as #iVar
Line Input #iVar, sVar
Close #iVar
Exit Sub
ErrorHandler:
MsgBox "Error " & Err & ": " & Error$ + chr(13) + "At line : " + Erl + chr(13) + Now , 16 ,"an error occurred"
End Sub