首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

2012-09-09 
求教VBA错误捕捉的问题Public Sub tt()On Error GoTo errsDim i As Integeri CInt(abc)errs:MsgBox e

求教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

热点排行