VBA-取消对话框运行时错误1004

Question

当我单击“取消”时，我正在尝试获取结尾子。但是，这样做时我遇到了运行时错误。

我只是想关闭使用Else: Exit Sub语句所做的对话框。但是，它仍然显示“运行时错误”，只是应该退出sub。

Answer 1

这是一个简单的修复，只需添加一个ErrorHandler即可，如下所示：

Public Sub Run_Split()

On Error GoTo ErrHandler

'Call Private Subs

Exit Sub

ErrHandler:
    MsgBox "User Cancelled Program", vbCritical
End Sub

感谢过去在此站点上为我提供过帮助的每个人，您的帮助使我可以在VBA中自学成才，而我能够在不寻求帮助的情况下解决此问题。