Excel VBA 编程基础 -- 错误处理(三)
- 2026-06-05 02:59:02
Excel VBA 编程基础 -- 错误处理(三)Resume 前面我们讨论了 VBA 关于设定错误处置方式的 On Error 语句，今天讨论 Resume 语句。 Resume 语句用于在错误处理完成后恢复执行。Resume 语句列于下表： 
图1 Resume 语句 例1. 我们已见过 Resume 语句： 
图2 Resume 语句 在这个例子中，开头的 On Error GoTo ErrorHandler 语句设定了ErrorHandler 错误处理程序，在接下来对表达式 a + 3.5 求值时发生错误，程序转到 ErrorHandler，在这个代码块中，判断当前错误是 13 号错误（类型不匹配），修改 a 的值，最后执行 Resume 语句使程序的执行返回到发生错误的语句，再次对表达式 a + 3.5 求值。此时因为 a 是数值形式的字符串，因此该表达式有效，求得该表达式的值 4.7，并打印出来。 如果 ErrorHandler 代码块最后的语句不是 Resume，而是 Resume Next，则程序执行将返回到发生错误的语句 Debug.Print a + 3.5 后面的语句，即 On Error GoTo 0。 而如果最后的语句既不是 Resume，也不是 Resume Next，而是 Resume ErrorHandler，将会发生什么？ 
图3 错误的 Resume ErrorHandler 代码块由于最后的 Resume ErrorHandler 语句导致无穷循环，反复打印两行信息： 例2. 既然 Resume Next 是恢复执行紧跟在发生错误的语句后面的语句，那我们是不是可以用 On Error GoTo line/Resume Next 来模拟 On Error Resume Next 呢？ 
图4 On Error Resume Next 和 On Error GoTo line/Resume Next 对比 ErrorHandling6 中可以打印出 429 号错误信息，而 ErrorHandling7 则打印信息 No error! 这是为什么呢？ 这是因为，在 ErrorHandling7 中，CreateObject 发生错误后，执行转到 ErrorHandler 错误处理代码块，这个代码块中只有一行语句 Resume Next，执行这条语句的结果是：清除当前错误，控制转移到紧跟在发生错误的语句之后的语句，即 If ... End If 语句。因为此时错误已被清除，因此 Err.Number 为 0，故打印出 No error! 在错误处理代码块中执行的 Resume 语句，其作用有二： 注意：Resume 语句只能用于错误处理代码中，任何其他地方使用 Resume 语句，都会导致 20 号错误：无错误恢复（Resume without error）。 为了模拟 On Error Resume Next，我们可以使用 On Error GoTo line/GoTo line 语句的组合，见下例。 例3. 使用 On Error GoTo line/GoTo line 组合模拟 On Error Resume Next 
图5 模拟 On Error Resume Next 这个例子中，我们使用了 GoTo 语句。在分析这个例子之前，先简单介绍一下 GoTo 语句。 GoTo 语句 GoTo 语句的一般形式为： GoTo line 作用：无条件地将控制转移到 line 标记的行。 我们已经介绍过一些分支语句，如 If ... End If 结构，Select Case ... End Select 结构等。GoTo 语句也是分支语句的一种，但 If 和 Select 语句都是根据条件来做分支转移的，GoTo 不需要条件，直接转移到 line 标记的位置。 在荷兰计算机科学家 Edsger W. Dijkstra 倡导结构化程序设计之前，Basic 语言程序中充满了 GoTo 语句，以至于人们称那时的程序是“意大利面条”（Spaghetti）：没有结构，一团乱麻。1968 年，Dijkstra 以一篇短文“Go To statement considered harmful” 投书计算机界的顶级杂志 Comminucations of ACM，掀起了一场大讨论，并由此开启了结构化程序设计的新范式，Dijkstra 也由此获得 1972 年图灵奖。 大部分现代语言中仍然包含有 GoTo 语句，但并不主张过多使用，而是倡导通过诸如 If ... End If，Select Case ... End Select，For ... Next，Do While ... Loop，Loop ... Do Until 等结构化控制语句使得程序更加结构化。 现在回头讨论例3。 在这个例子中，CreateObject 发生错误时，程序控制转到 ErrorHandler 错误处理代码块，这里只有一行语句：GoTo Continue。这条语句的作用是直接将控制转移到 Continue 所标记的位置。注意：GoTo 语句并不对 Err 对象做任何操作。故此时的 Err.Number 不等于 0，因此 If 条件成立，执行 Then 后面的语句，打印出错信息。 ErrorHandling8 的作用和 ErrorHanding6 是一样的，也就是说，我们可以用 On Error GoTo line/GoTo line 来模拟 On Error Resume Next。 相关阅读 Excel VBA 编程基础 -- 错误处理（一） Excel VBA 编程基础 -- 错误处理（二）
0：此时因为已经没有错误，所以 Err.Number 为 0，而 Err.Description 为空，因此执行 Debug.Print Err.Number & ": " & Err.Description，只打印出 0：。 20：无错误恢复：因为前面的 Select Case 语句打印出 0，已经没有错误，此时再执行错误恢复语句 Resume ErrorHandler，会导致发生 20 号错误：无错误恢复（Resume without error）。
清除当前错误：清除 Err 对象 执行控制转移：根据 Resume 的参数，转移到错误语句、之后的语句、line 标记的语句
本文来自网友投稿或网络内容，如有侵犯您的权益请联系我们删除，联系邮箱：wyl860211@qq.com 。
