Active JavaScript en el navegador para mostrar las páginas de ayuda de LibreOfficeDev.

Función Erl

Devuelve el número de línea en que se produjo un error durante la ejecución de un programa.

Sintaxis:


Erl

Valor de retorno:

Entero

Parámetros:

Icono de nota

La función Erl sólo devuelve el número, no la etiqueta de línea.


Ejemplo:


Sub ExampleError
On Error GoTo ErrorHandler ' Configurar manipulador de errores
Dim iVar As Integer
Dim sVar As String
' Error causado por un archivo no existente
    iVar = Freefile
    Open "\file9879.txt" For Input As #iVar
    Line Input #iVar, sVar
    Close #iVar
    Exit Sub
ErrorHandler:
    MsgBox "Error " & err & ": " & Error$ + chr(13) + "En la línea: " + Erl + chr(13) + Now , 16 ,"Se ha producido un error"
End Sub