LibreOffice 7.3 Help
рдХрд╛рд░реНрдпрдХреНрд░рдо рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рдЧрд░рд┐рд░рд╣реЗрдХреЛ рдмреЗрд▓рд╛рдорд╛ рддреНрд░реБрдЯрд┐ рдЖрдЙрдиреЗ рдард╛рдЙрдБрдорд╛ рд░реЗрдЦрд╛ рдирдореНрдмрд░ рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН ред
Erl
рдЗрдиреНрдЯрд┐рдЬрд░
Erl рд▓реЗ рд░реЗрдЦрд╛ рдирдореНрдмрд░ рдорд╛рддреНрд░ рдлрд░реНрдХрд╛рдЙрдБрдЫ, рд░ рд░реЗрдЦрд╛ рд▓реЗрдмреБрд▓ рдлрд░реНрдХрд╛рдЙрджреИрди ред
Sub ExampleError
On Error GoTo ErrorHandler ' рдорд╛ рдЬрд╛рдиреБрд╣реЛрд╕реН, рддреНрд░реБрдЯрд┐ рд╣реНрдпрд╛рдиреНрдбрд▓рд░ рд╕реЗрдЯрдЕрдк рдЧрд░реНрдиреБрд╣реЛрд╕реН
Dim iVar As Integer
Dim sVar As String
рдлрд╛рдЗрд▓ рдЕрд╡рд╕реНрдерд┐рдд рдирднрдПрдХреЛ рдХрд╛рд░рдгрд▓реЗ REM рдорд╛ рддреНрд░реБрдЯрд┐
iVar = Freefile
Open "\file9879.txt" For Input As #iVar
Line Input #iVar, sVar
Close #iVar
Exit Sub
ErrorHandler:
рд╕рдиреНрджреЗрд╢ рдмрд╛рдХрд╕ "рддреНрд░реБрдЯрд┐ " & err & ": " & error$ + chr(13) + "рд▓рд╛рдЗрдирдорд╛ : " + Erl + chr(13) + рдЕрд╣рд┐рд▓реЗ , 16 ,"рдПрдЙрдЯрд╛ рддреНрд░реБрдЯрд┐ рд░рд╣рди рдЧрдпреЛ"
End Sub