Resume语句可以用于错误处理程序结束后,恢复原有的运行。另外,如果在错误处理程序之外的任何地方使用Resume语句都会导致错误发生。
语法:
Resume [0]
Resume Next
Resume line
其中,Resume语句的语法可以具有以下任何一种形式:
● Resume 如果错误和错误处理程序出现在同一个过程中,则从产生错误的语句恢复运行。如果错误出现在被调用的过程中,则从最近一次调用包含错误处理程序的过程的语句处恢复运行。
● Resume Next 如果错误和错误处理程序出现在同一个程序中,则从紧随产生错误的语句的下个语句恢复运行。如果错误发生在被调用的过程中,则对最后一次调用包含错误处理程序的过程的语句(或 On Error Resume Next 语句),从紧随该语句之后的语句处恢复运行。
● Resume line 在必要的 line 参数指定的 line 处恢复运行。line 参数是行标签或行号,必须和错误处理程序在同一个过程中。
例如,下面的示例使用Resume语句来结束错误处理程序,然后将执行返回到产生错误的语句,其代码如下:
Sub ResumeStatementDemo()
On Error GoTo ErrorHandler ' 打开错误处理程序。
Open "TESTFILE" For Output As #1 ' 打开输出文件。
Kill "TESTFILE" ' 试图删除已打开的文件。
Exit Sub ' 退出程序,以避免进入错误处理程序。
ErrorHandler: ' 错误处理程序。
Select Case Err.Number ' 检查错误代号。
Case 55 ' 发生“文件已打开”的错误。
Close #1 ' 关闭已打开的文件。
Case Else
' 处理其他错误状态 . . .
End Select
Resume ' 将执行返回到发生错误的语句。
End Sub
本文来源:https://www.2haoxitong.net/k/doc/847123e80029bd64783e2ce8.html
文档为doc格式