求教VBA错误捕捉的问题

Question

Public Sub tt()
On Error GoTo errs
Dim i As Integer
i = CInt("abc")
errs:
MsgBox "error"
End Sub
这段程序代码没有捕捉到错误而是有程序自己报错了求指教

Answer 1

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

Answer 2

你怎么知道没有捕捉到错误，你的代码正确执行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

Answer 3

恩恩 同意 加入exit sub