vba - 错误处理-仍然出现运行时错误框

Question

我正在尝试在我的代码中实现错误处理程序，如果发生了运行时错误，我设法创建了一个消息框，但是在清除消息框后，会 pop 运行时错误框。这是我的代码的片段:

combinedFilename = Application.GetOpenFilename(filter, , caption)

If combinedFilename <> "False" Then

    Set combinedWorkbook = Application.Workbooks.Open(combinedFilename)

Else

    MsgBox "No file was uploaded", vbExclamation


End If

任何帮助将不胜感激。

非常感谢

Answer 1

在Err.Clear之后写MsgBox。

如果清除错误。看到这个小样本:

Public Sub TestMe()

    On Error Resume Next
    Debug.Print 5 / 0           '11, because this is the number of the error.
    Debug.Print Err.Number
    Err.Clear
    Debug.Print Err.Number      '0, because the error is cleared.

End Sub