Instrucción Resume
Reanuda la ejecución después de que haya finalizado una rutina de tratamiento de errores.
Sintaxis
Resume [ 0 ]
Resume Next
Reanudarlínea
La sintaxis de la instrucción Resume puede tener alguna de las siguientes formas:
| Instrucción | Descripción |
|---|---|
| Resume | Si el error se produjo en el mismo procedimiento que el controlador de errores, la ejecución se reanuda con la instrucción que provocó el error. Si el error se produjo en un procedimiento llamado, la ejecución se reanuda en la instrucción que llamó por última vez al procedimiento que contiene la rutina de tratamiento de errores. |
| Resume Next | Si el error se produjo en el mismo procedimiento que el controlador de errores, la ejecución se reanuda con la instrucción inmediatamente posterior a la instrucción que provocó el error. Si el error se produjo en un procedimiento llamado, la ejecución se reanuda con la instrucción inmediatamente después de la instrucción que se llamó por última vez fuera del procedimiento que contiene la rutina de control de errores (o la instrucción On Error Resume Next ). |
| Reanudarlínea | La ejecución se reanuda en la línea especificada en el argumentode línea necesario. El argumento de línea es una etiqueta de línea o número de línea y debe estar en el mismo procedimiento que el controlador de errores. |
Comentarios
Si usa una instrucción Resume en cualquier parte excepto en una rutina de tratamiento de errores, se produce un error.
Ejemplo
En este ejemplo se usa la instrucción Resume para finalizar el tratamiento de errores en un procedimiento y, a continuación, se reanuda la ejecución con la instrucción que provocó el error. Se genera el error número 55 para mostrar el uso de la instrucción Resume.
Sub ResumeStatementDemo()
On Error GoTo ErrorHandler ' Enable error-handling routine.
Open "TESTFILE" For Output As #1 ' Open file for output.
Kill "TESTFILE" ' Attempt to delete open file.
Exit Sub ' Exit Sub to avoid error handler.
ErrorHandler: ' Error-handling routine.
Select Case Err.Number ' Evaluate error number.
Case 55 ' "File already open" error.
Close #1 ' Close open file.
Case Else
' Handle other situations here....
End Select
Resume ' Resume execution at same line that caused the error.
End Sub
Vea también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.