如何在VBA中进行出错处理？

abu

1，出错时跳到“标志”行：
  On Error Goto "标志如(ERE:)"
2，出错时忽略错误并取消进程：
  On Error Goto 0
3，出错时忽略错误继续执行下行代码：
  On Error Resume Netx

ERR 对象有许多属性：
    .Clear(清除错误，大致等同 GOTO 0)
    .Description(出错信息)
    .LastDllError(最近动态错误)
    .Number(0值为无错误，其它为出错句柄)
    .Source(来源)
……等
查错例子：
If Err.Number<>0 then
MsgBox err.Description
'当出错时用对话框显示错误原因，也可加入相应代码进行错误处理
End if

错误处理：
Function MakeError() as Boolen
On Error Goto MyGod
Dim a as string
Dim b as Long
b=a '这一行制造错误，将跳到“标志”-MyGod
.....
....
Exit Function
MyGod:
MakeError=True
Call DoIt
End Function
'如果发生错误反回TRUE并执行 DoIt 子程序

lxf-ysy

呵呵 谢谢了