求教VBA错误捕捉的问题

[IT回忆录]

Public Sub tt()
On Error GoTo errs
Dim i As Integer
i = CInt("abc")
errs:
MsgBox "error"
End Sub


这段程序代码没有捕捉到错误而是有程序自己报错了

求指教

[chinaboyzyq]

excel vba下测试此程序没有问题。

[yangao]

代码本身没问题
检查下其他的看看有没有问题

[worldy]

你怎么知道没有捕捉到错误，你的代码正确执行i = CInt("abc")后（假设），和捕捉错误后执行的都是
MsgBox "error"。。。。。。。。。。。。你根本无法分辨

比较正确的做法应该是：
Public Sub tt()
On Error GoTo errs
Dim i As Integer
i = CInt("abc")
exit sub
errs:
MsgBox "error"
End Sub

[TroubleShotting]

恩恩 同意 加入exit sub

[IT回忆录]

谢谢，问题解决