在 VBA 中处理错误时如何管理无错误情况？ [复制]

Question

我需要使用GoTo 语句捕获一些 VBA 错误：

Sub mySub
 On Error GoTo errorHandler:
    Workbooks.Open("myWorkbook")
'
' Some Code
'
errorHandler:
MsgBox "ERROR"

End Sub

问题是当没有错误时，errorHandler 部分会被执行。
我找到了this discussion，但答案并没有解决我的问题。
我尝试按照说明添加Exit Sub 语句：

Sub mySub
 On Error GoTo errorHandler:
    Workbooks.Open("myWorkbook")
    Exit Sub

'
' Some Code
'
errorHandler:
  MsgBox "ERROR"

End Sub

在这种情况下，它会在没有错误时退出该方法。 我也试过了：

 Sub mySub
 On Error GoTo errorHandler:
    Workbooks.Open("myWorkbook")
'
' Some Code
'
errorHandler:
  MsgBox "ERROR"
  Exit Sub
End Sub

但还是同样的问题：errorHandler 即使没有发生错误也会被执行。

Answer 1

只需将 Exit sub 放入即可。

Sub mySub
 On Error GoTo myHandler:
    Workbooks.Open("myWorkbook")
'
' Some Code
'
Exit sub

myHandler:
MsgBox "EROOR !"

err.clear
End Sub

Answer 2

Public Sub MySub
    On Error Goto Skip

    ' Some Codes

Skip:
    If err.Number > 0 Then

        ' Run whatever codes if error occurs

        err.Clear
    End If
    On Error Goto 0
End Su

Answer 3

这是我喜欢的模式：

Sub SomeSub()
    On Error GoTo ErrorLabel

    'Code goes here

ExitLabel:
   'Clean-up code, if any, goes here 
   Exit Sub

ErrorLabel:
    'Error-handling code goes here
    Resume ExitLabel
End Sub

请注意，Resume 会清除错误。我喜欢这种模式有几个原因：

1. 习惯性地在错误处理块之前插入退出块可以减少我遇到 OP 意外掉入错误处理程序问题的机会。

2. 我使用GoTo ExitLabel any 提前退出子或函数。这样，我不太可能意外跳过清理代码。示例：

   Sub SomeOtherSub()
       Dim x As ResourceThatNeedsToBeClosed
       Dim i As Long
       On Error GoTo ErrorLabel
       Set x = GetX
       For i = 1 To 100
           If x.SomeFunction(i) Then
               GoTo ExitLabel
           End If
       Next
   ExitLabel:
       x.Close
   ErrorLabel:
       'Error-handling code goes here
       Resume ExitLabel
   End Sub
   

Answer 4

在错误处理程序部分使用以下代码：

if err.number>0 the
    ' error handling goes here
else
    ' some code
end if

Answer 5

我遇到了和你一样的问题，上面的解决方案没有用。他们显然甚至没有看到您已经在原始帖子的 2 个不同位置写了 Exit Sub。似乎没有在线网站理解有时不会出现错误（如果总是会出现错误，你为什么要这样编码？），当没有错误时，你显然不会想退出子。您也不希望 myHandler 在没有错误时运行。呃！这是我想出的似乎可行的解决方案。

On Error GoTo ErrorHandler
'This is the thing I am trying to do...
Workbooks("SpreadSolver.xlsb").Activate
'If it works, great. 
'Don't touch the error stuff and move on. 
'I.e. go to the part that I know works (the rest of the macro)
GoTo ThisPartWorks

'If the thing I am trying to do doesn't work...
ErrorHandler:
MsgBox "Error: Please open Spread Solver and then run the macro."
'Only want to Exit Sub if there is an error.. duh.
Exit Sub

ThisPartWorks:
'the rest of your macro can go here...
'...
End Sub

Answer 6

我在 ErrorHandler 中使用 If 语句，如果没有错误，它将停止执行。这是通过使用 Err.Number (Err (object) number (e.g. Run-time error 9: Subscript out of range))实现的

If Err.Number >= 1 Then
MsgBox ("Message")
End
Else: other code
End If
Exit Sub

Answer 7

这就是我所做的。像魅力一样工作

Sub someProgram ()
    On Error goto Handler:
        x = 7/0

    'Some code you wanna execute  with or without error
Exit Sub

Handler:
     'Write your handler here

Resume next 'After handling error, this line will help you resume the next line

End sub

Answer 8

sub XYZ ()
on error goto label

"Write your macro"

Label:
      If Err.Description <> "" Then
       "your code if error occurs for eg:"
       msgbox "Error Occured!"
       Exit Sub
       Else
       "Your code when no error occurs for eg"
        msgbox " Done."
       End If
Exit Sub