如何做错误处理？在线等待！！

Question

你试试看下面的行么？
 on error goto ERRdata
   ……
   ……
 ERRdata:
    msgbox("……")
    exit sub

Answer 1

写个通用的错误处理模块，可参考MSDN中自带的ERRORS。BAS。
用SELECT CASE ERR。NUMBER来进行错误处理。
然后在每个函数、过程中都用ON ERROR GOTO LINE ，然后CALL你的错误处理代码。

Answer 2

great!on error goto xxx
...
...
exit sub(function)xxx:
select case err.number
...
end select

Answer 3

还可以把 风 程序里面的msgbox 那个语句改成 msgbox err.description 不用处理自己就显示错误的描述
不过要注意有的错误描述是英文，有的则说是未知错误，也可以根据err.number对应vb的可捕获的错误显示吧，不重要的错误就不显示警告on error goto errLine
   '放你的代码
errLine:
    msgbox err.description
exit sub