LibreOffice 24.8 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