LibreOffice 25.2 Help
āĻĒā§āϰā§āĻā§āϰāĻžāĻŽ āĻāĻžāϞāύāĻžāϰ āϏāĻŽā§ āϝ⧠āϏāĻžāϰāĻŋāϤ⧠āϤā§āϰā§āĻāĻŋ āϏāĻāĻāĻāĻŋāϤ āĻšā§ āϤāĻž āĻĒā§āϰāĻĻāĻžāύ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
Erl
Integer
Erl āĻĢāĻžāĻāĻļāύāĻāĻŋ āĻļā§āϧā§āĻŽāĻžāϤā§āϰ āĻā§āύ āϏāĻžāϰāĻŋ āϞā§āĻŦā§āϞ āύā§, āĻāĻāĻāĻŋ āϏāĻžāϰāĻŋāϰ āĻā§āϰāĻŽ āĻĒā§āϰāĻĻāĻžāύ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
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) + "In line : " + Erl + chr(13) + Now , 16 ,"An error occurred"
End Sub