Instrucción On Error GoTo… Resume

Activa una rutina de tratamiento de errores después de producirse estos o continúa la ejecución del programa.

Sintaxis:

On Error Statement diagram


On [Local] Error {GoTo Labelname | GoTo 0 | Resume Next}

Parámetros:

GoTo NombreEtiqueta: Si se produce un error, activa la rutina de manejo de errores que empieza en la línea "NombreEtiqueta".

Resume Next: Si se produce un error, la ejecución del programa continúa con la instrucción que sigue a aquélla en la que se produjo el error.

GoTo 0: Desactiva el manipulador de errores en el procedimiento actual.

Local: Optional. The keyword is a reminder the statement is local to the routine which invokes it; when the routine exits, this error handling is canceled automatically.

Ejemplo:


Sub ExampleReset
On Error GoTo ErrorHandler
    Dim iNumber As Integer
    Dim iCount As Integer
    Dim sLine As String
    Dim aFile As String
    aFile = "C:\Users\ThisUser\data.txt"
    iNumber = Freefile
    Open aFile For Output As #iNumber
    Print #iNumber, "Este es un renglón de texto"
    Close #iNumber
    iNumber = Freefile
    Open aFile For Input As iNumber
    For iCount = 1 To 5
        Line Input #iNumber, sLine
        If sLine <>"" Then
            Rem
        End If
    Next iCount
    Close #iNumber
    Exit Sub
ErrorHandler:
    Reset
    MsgBox "Se cerrarán todos los archivos",  0,  "Error"
End Sub

¡Necesitamos su ayuda!