Excel VBA 未正确中断错误答案

【问题标题】：Excel VBA not properly breaking on errorExcel VBA 未正确中断错误
【发布时间】：2015-04-09 10:29:55
【问题描述】：

在 Excel 2010 中，我有这段代码：

Application.DisplayAlerts = False                                 
On Error Resume Next
ThisWorkbook.Worksheets("Satisfaction Summary").Delete                      
On Error GoTo 0
Set Report = Worksheets.Add(after:=Worksheets("Main"))
'added this line to force an error:
I = 1 / 0

目标是如果存在则删除工作表，如果不存在，则忽略错误，然后按该名称添加工作表。

当我转到 Tools|Options|General 并选择 Break on All Errors 时，如果工作表不存在，IDE 将停止，我无法继续，因为的错误。如果我将该设置更改为 Break on Unhandled Errors，我会完全按照我的预期通过。

不幸的是，如果我将其设置为未处理错误时中断，我遇到的每个其他错误都会导致调试器停止执行，这不是它应该做的。不，它不会暂停执行并向我显示错误所在的代码行，允许我调查问题并可能修复它，它会终止代码的执行。它确实给了我一个显示错误号和描述的对话框，但是当我点击确定时，代码执行已终止，它不会将我移动到错误所在的代码行。

有没有其他人遇到过这种情况并有解决问题的任何提示？

编辑：在代码中添加了一行以强制立即出错。这是选择Break on Unhandled Errors时弹出的对话框：

如您所见，没有 MsgBox 调用。

【问题讨论】：

只有当你有一个错误处理程序（它正在做它应该做的事情）时才会发生这种情况。
我不确定我是否关注你。目前，这段代码是我唯一的错误处理。我希望 Break on Unhandled Errors 暂停执行上述两个 On Error 行之外的任何其他代码行，但事实并非如此。
前几天有一个类似的问题here。如果您完全关闭 Excel，并将此代码放入新工作簿中，同样的问题是否仍然存在？ IDE 根本不应该在不允许您调试的情况下中断，并且带有您描述的错误的消息框（与其他 Q 一样）似乎是 MsgBox 提示，而不是实际的错误警报...跨度>
@DavidZemens，看看我所做的编辑，这不是MsgBox 调用的结果。
如果您完全关闭 Excel，并将此代码放入新工作簿中，同样的问题是否仍然存在？ 在另一个类似的问题中，问题显然已通过移动解决了代码到一个新的工作簿；可能以某种方式损坏的文件。

标签： vba excel

【解决方案1】：

我不是ON ERROR RESUME NEXT 的忠实粉丝。检查工作表是否存在，必要时删除如何？

Declare SheetExists as Boolean

SheetExists = False

For SheetCounter = 1 To Worksheets.Count
    If Worksheets(SheetCounter).Name = "Satisfaction Summary" Then
        SheetExists = True
    End If
Next i

If SheetExists Then
    ThisWorkbook.Worksheets("Satisfaction Summary").Delete
End If

'copied from code you provided
Set Report = Worksheets.Add(after:=Worksheets("Main"))

【讨论】：

这避免了错误但实际上并没有回答问题。
虽然这实际上并没有回答这个问题，但我投了赞成票，因为我最终用它来解决这个问题。基于普遍缺乏对此的反馈，要么我是唯一一个遇到这个问题的人，要么是一个 MS 错误......

【解决方案2】：

试试这个。相同的想法，略有不同的方法。

    Application.DisplayAlerts = False
    Dim wsSheet As Worksheet
    On Error Resume Next

    'Attempts to set object to worksheet you wish to delete

    Set wsSheet = Sheets("Satisfaction Summary")

    On Error GoTo 0

    'if wsSheet was successfully set to an existing sheet

    If Not wsSheet Is Nothing Then

        wsSheet.Delete

    End If

【讨论】：

这避免了错误但实际上并没有回答问题。
我没有测试你的方法，但我怀疑Set 行最终会给我带来与我的初始代码相同的问题。