Instrução Resume
Retoma a execução após a conclusão de uma rotina de tratamento de erros.
Sintaxe
Retomar [ 0 ]
Retomar Próximo
Retomarlinha
A sintaxe da instrução Retomar pode ter qualquer um dos seguintes formulários:
Declaração | Descrição |
---|---|
Resume | Se o erro ocorreu no mesmo procedimento que o manipulador de erros, a execução será retomada com a instrução que causou o erro. Se o erro ocorreu em um procedimento chamado, a execução será retomada na instrução que saiu pela última vez do procedimento que contém a rotina de tratamento de erros. |
Retomar Próximo | Se o erro ocorreu no mesmo procedimento que o manipulador de erros, a execução será retomada com a instrução imediatamente após a instrução que causou o erro. Se o erro ocorreu em um procedimento chamado, a execução será retomada com a instrução imediatamente após a instrução que foi chamada pela última vez para fora do procedimento que contém a rotina de tratamento de erros (ou a instrução On Error Resume Next ). |
Retomarlinha | A execução é retomada na linha especificada no argumento de linha necessário. O argumento de linha é um rótulo de linha ou número de linha e deve estar no mesmo procedimento que o manipulador de erros. |
Comentários
Se você usar uma instrução Resume em qualquer lugar, exceto em uma rotina de tratamento de erros, ocorrerá um erro.
Exemplo
Este exemplo usa a instrução Retomar para encerrar o tratamento de erros em um procedimento e, em seguida, retomar a execução com a instrução que causou o erro. O erro número 55 é gerado para ilustrar usando a instrução Retomar .
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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.