Оператор Resume

Статья
04/07/2023

Возобновляет выполнение после окончания обработки ошибки.

Синтаксис

Резюме [ 0 ]
Resume Next
Строка возобновления

Синтаксис оператора Resume может принимать любую из следующих форм:

Statement	Описание
Resume	Если ошибка возникает в той же процедуре, где находится обработчик ошибок, выполнение возобновляется с оператора, вызвавшего ошибку. Если ошибка произошла в вызванной процедуре, выполнение возобновляется на операторе, который последним вызывал процедуру, содержащую программу обработки ошибок.
Resume Next	Если ошибка произошла в той же процедуре, где содержится обработчик ошибок, выполнение возобновляется с оператора, который сразу же следует за оператором, вызвавшим ошибку. Если ошибка произошла в вызываемой процедуре, выполнение возобновляется с инструкцией сразу после инструкции, которая в последний раз была вызвана из процедуры, содержащей подпрограмму обработки ошибок (или инструкцию On Error Resume Next ).
Строка возобновления	Выполнение возобновляется в строке, указанной в требуемом аргументестроки. Аргумент line является меткой строки или номером строки и должен быть в той же процедуре, что и обработчик ошибок.

Замечания

Если оператор Resume используется где-либо, помимо программы обработки ошибки, возникает ошибка.

Пример

В этом примере используется оператор Resume для окончания обработки ошибки в процедуре и последующего возобновления выполнения с оператора, который вызвал ошибку. Номер ошибки 55 создается для иллюстрации использования оператора 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

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через