通过

Resume语句

  • 项目

完成错误处理例程后继续执行。

语法

Resume [ 0 ]
Resume Next
恢复行

Resume 语句语法可具有以下任意形式：

语句 说明
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 支持和反馈，获取有关如何接收支持和提供反馈的指南。