求问：On Error GoTo 0 的用法？

FENGJUN

求问：On Error GoTo 0 的用法？

清风_ll

让我们先看一段语句，例如在过程中有这么一段

On Error Resume Next Range("a1") = Application.WorksheetFunction.Match(1, 3)

Range("a1") = Application.WorksheetFunction.Match(1, 3) On Error GoTo 0 Range("a1") = Application.WorksheetFunction.Match(1, 3)

我们看到，三句语句是一样的，同时我们也知道，这句语句是错误的

但是让我们看看结果吧，前面的两个不会给出错误信息，

而最后一个会出现一个错误。

结论：主要的作用在于当过程中用到了ON ERROR RESUME NEXT(GOTO ...) 之后，

取消用户的错误处理。

以上为个人理解，不知对否，还请校正！

[此贴子已经被作者于2005-3-10 9:18:06编辑过]

FENGJUN

以下是引用清风_ll在2005-3-9 20:27:00的发言：

让我们先看一段语句，例如在过程中有这么一段

结论：主要的作用在于当过程中用到了ON ERROR RESUME NEXT 之后，

重新恢复错误处理

以上为个人理解，不知对否，还请校正！

下面例程进一步说明了上面的见解明确不误：

Sub DisplayCalendar() Dim olApp As Object Dim olNs As Object On Error Resume Next Set olApp = GetObject(, "Outlook.Application") If Err.Number = 429 Then Set olApp = CreateObject("Outlook.application") End If On Error GoTo 0 Set olNs = olApp.GetNamespace("MAPI") If olApp.ActiveExplorer Is Nothing Then olApp.Explorers.Add _ (olNs.GetDefaultFolder(9), 0).Activate Else Set olApp.ActiveExplorer.CurrentFolder = _ olNs.GetDefaultFolder(9) olApp.ActiveExplorer.Display End If Set olNs = Nothing Set olApp = Nothing End Sub

The GetObject function will raise an error if there is no existing instance of Outlook, so we used On Error Resume Next to ignore that error. Then we tested for the specific error, and if the error was raised, we used CreateObject. We reset error handling with On Error GoTo 0 so that we don't disguise any errors later in the procedure.（恢复错误捕捉以不再规避任何错误）

[此贴子已经被作者于2005-3-10 9:23:34编辑过]

兰色幻想

EXCEL帮助中的一段：

On Error GoTo 0 停止在当前过程中处理错误。即使过程中包含编号为 0 的行，它也不把行 0 指定为处理错误的代码的起点。如果没有 On Error GoTo 0 语句，在退出过程时，错误处理程序会自动关闭。

在错误未发生的时候，为了防止错误处理程序代码运行，请像在下段程序中那样，在紧靠着错误处理程序的前面写入 Exit Sub、Exit Function 或 Exit Property 语句。

Sub InitializeMatrix(Var1, Var2, Var3, Var4) On Error GoTo ErrorHandler . . . Exit SubErrorHandler: . . . Resume NextEnd Sub

此处，错误处理程序代码在 Exit Sub 语句之后，而在 End Sub 语句之前，从而与过程中的流程分开。错误处理程序代码可以在程序中的任何地方写入。

良凤精品

前面几位都写得复杂了一点.
     可能问这个问题的用户,其他的application等不懂.问题反而更多了

良凤精品

发生错误时,不运行错误处理程序,只显示错误提示信息,中断运行。
可用在on error resume next之后，使错误处理块无效。
举例如多个错误发生，用on error resume next 则忽略错误，而在第一个错误后加入on error goto 0
则第一个错误忽略，但遇到第二个错误，则显示错误信息并终止程序。


不知道我这样说法对不对.
我个人总结的.

bluexuemei

良凤精品 发表于 2009-10-17 17:30
发生错误时,不运行错误处理程序,只显示错误提示信息,中断运行。
可用在on error resume next之后，使错误处 ...

有道理,通俗易懂!

远征之辉

良凤精品 发表于 2009-10-17 17:30
发生错误时,不运行错误处理程序,只显示错误提示信息,中断运行。
可用在on error resume next之后，使错误 ...

相当易懂经验之谈

远征之辉

良凤精品 发表于 2009-10-17 17:30
发生错误时,不运行错误处理程序,只显示错误提示信息,中断运行。
可用在on error resume next之后，使错误 ...

哇，居然没想到在7年之后能学习到！不知道目前的您成长如何了哈哈哈

indexlee

三楼的例子
Sub DisplayCalendar()
Dim olApp As Object
Dim olNs As Object
On Error Resume Next
Set olApp = GetObject(, "Outlook.Application")
If Err.Number = 429
Then Set olApp = CreateObject("Outlook.application")
End If
On Error GoTo 0
Set olNs = olApp.GetNamespace("MAPI")
If olApp.ActiveExplorer Is Nothing Then olApp.Explorers.Add _
(olNs.GetDefaultFolder(9), 0).Activate Else Set olApp.ActiveExplorer.CurrentFolder = _ olNs.GetDefaultFolder(9) olApp.ActiveExplorer.Display
End If
Set olNs = Nothing
Set olApp = Nothing
End Sub

The GetObject function will raise an error if there is no existing instance of Outlook,
so we used On Error Resume Next to ignore that error.
Then we tested for the specific error, and if the error was raised, we used CreateObject.
We reset error handling with On Error GoTo 0 so that we don't disguise any errors later in the procedure.

On Error Resume Next 忽略后续代码的报错
On Error GoTo 0 恢复默认的状态，即不再掩饰后续代码的错误