读书人

求教VBA异常捕捉的有关问题

发布时间: 2012-09-09 09:27:54 作者: rapoo

求教VBA错误捕捉的问题
Public Sub tt()
On Error GoTo errs
Dim i As Integer
i = CInt("abc")
errs:
MsgBox "error"
End Sub


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

求指教

[解决办法]
你怎么知道没有捕捉到错误,你的代码正确执行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

读书人网 >VB

热点推荐