excel - 正确处理 VBA (Excel) 中的错误

Question

我已经使用 VBA 有一段时间了，但我仍然不太确定错误处理。

一篇好文章是 CPearson.com

但是我仍然想知道我以前执行 ErrorHandling 的方式是否完全错误:区 block 1

On Error Goto ErrCatcher
   If UBound(.sortedDates) > 0 Then

       // Code

   Else
ErrCatcher:
       // Code

   End If

if 子句，因为如果为 true，将被执行，如果失败，Goto 将进入 Else 部分，因为数组的 Ubound 永远不应该为零或更少，没有错误，此方法有效到目前为止还不错。

如果我没理解错的话应该是这样的:

block 2

On Error Goto ErrCatcher
    If Ubound(.sortedDates) > 0 Then

       // Code
    End If

    Goto hereX

ErrCatcher:
       //Code
    Resume / Resume Next / Resume hereX

hereX:

或者甚至像这样:区 block 3

On Error Goto ErrCatcher
    If Ubound(.sortedDates) > 0 Then

       // Code
    End If

ErrCatcher:
    If Err.Number <> 0 then
       //Code
    End If

我看到的最常见的方式是，错误“Catcher”位于子的末尾，而子实际上以“Exit Sub”结束，但是如果如果你跳到相反的位置来阅读代码，Sub 会很大吗？

区 block 4

Source of the following Code: CPearson.com

  On Error Goto ErrHandler:
   N = 1 / 0    ' cause an error
   '
   ' more code
   '
  Exit Sub

  ErrHandler:

   ' error handling code'

   Resume Next

End Sub 

应该像区 block 3 那样吗？

Answer 1

您从 ray023 得到了一个真正精彩的答案，但您认为这可能有点过分的评论是恰当的。对于“更轻”的版本....

区 block 1 恕我直言，这是不好的做法。正如 osknows 已经指出的那样，将错误处理与正常路径代码混合是不好的。一方面，如果在错误条件生效时抛出新错误，您将没有机会处理它(除非您从以下例程调用)还有一个错误处理程序，其中执行将“冒泡”)。

block 2 看起来像 Try/Catch block 的模仿。应该没问题，但这不是 VBA 方式。 block 3 是 block 2 的变体。

Block 4 是 VBA Way 的基本版本。我强烈建议使用它或类似的东西，因为这是任何其他继承代码的 VBA 程序员所期望的。不过，让我介绍一个小的扩展:

Private Sub DoSomething()
On Error GoTo ErrHandler

'Dim as required

'functional code that might throw errors

ExitSub:
    'any always-execute (cleanup?) code goes here -- analagous to a Finally block.
    'don't forget to do this -- you don't want to fall into error handling when there's no error
    Exit Sub

ErrHandler:
    'can Select Case on Err.Number if there are any you want to handle specially

    'display to user
    MsgBox "Something's wrong: " & vbCrLf & Err.Description

    'or use a central DisplayErr routine, written Public in a Module
    DisplayErr Err.Number, Err.Description

    Resume ExitSub
    Resume
End Sub

请注意第二个 Resume 。这是我最近学到的一个技巧:它在正常处理中永远不会执行，因为 Resume <label>语句会将执行发送到其他地方。不过，它可能是调试的天赐之物。当您收到错误通知时，选择“调试”(或按 Ctl-Break，然后在收到“执行被中断”消息时选择“调试”)。下一个(突出显示的)语句将是 MsgBox或以下声明。使用“设置下一条语句”(Ctl-F9) 突出显示裸露的 Resume ，然后按 F8。这将向您显示确切错误发生的位置。

至于您对这种“跳跃”格式的反对意见，A)这是 VBA 程序员所期望的，如前所述，&B)您的例程应该足够短，以便跳跃不会太远。