Instrução Resume
Retoma a execução após a conclusão de uma rotina de processamento de erros.
Sintaxe
Retomar [ 0 ]
Retomar Seguinte
Retomarlinha
A sintaxe da instrução Retomar pode ter qualquer um dos seguintes formulários:
| Declaração | Descrição |
|---|---|
| Resume | Se o erro tiver ocorrido no mesmo procedimento que o processador de erros, a execução será retomada com a instrução que causou o erro. Se o erro tiver ocorrido num procedimento chamado, a execução será retomada na instrução que foi chamada pela última vez fora do procedimento que contém a rotina de processamento de erros. |
| Retomar Seguinte | Se o erro tiver ocorrido no mesmo procedimento que o processador de erros, a execução será retomada com a instrução imediatamente a seguir à instrução que causou o erro. Se o erro tiver ocorrido num procedimento chamado, a execução será retomada com a instrução imediatamente a seguir à instrução que foi apresentada pela última vez do procedimento que contém a rotina de processamento de erros (ou a instrução On Error Resume Next ). |
| Retomarlinha | A execução é retomada na linha especificada no argumentode linha necessário. O argumento de linha é uma etiqueta de linha ou número de linha e tem de estar no mesmo procedimento que o processador de erros. |
Comentários
Se utilizar uma instrução Retomar em qualquer lugar, exceto numa rotina de processamento de erros, ocorre um erro.
Exemplo
Este exemplo utiliza a instrução Resume para terminar o processamento de erros num procedimento e, em seguida, retomar a execução com a instrução que causou o erro. O número de erro 55 é gerado para ilustrar com 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.