Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Возобновляет выполнение после окончания обработки ошибки.
Синтаксис
Резюме [ 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 и обратная связь.