Instrução Resume

  • Artigo

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.