|
在Excel中使用VBA，相当的方便，但是不能排除代码本身的错误。
一旦代码出现错误，Excel就会终止代码的运行，重则造成Excel程序崩溃。下面，给大家介绍一下，相应的VBA异常处理语句On Error介绍，以防不测。
一、On Error 语句的语法介绍
On Error 语句，其功能是：启动一个错误处理程序并指定该子程序在一个过程中的位置；也可用来禁止一个错误处理程序。
①语法形式
On Error GoTo line
On Error Resume Next
On Error GoTo 0
②参数介绍
On Error GoTo line ：启动错误处理程序，line 参数可以是任何行标签或行号。如果发生一个运行时错误，则程序会跳到 line指定的位置，激活错误处理程序。指定的 line 必须在一个过程中，这个过程与 On Error 语句相同；否则会发生编译时间错误。
On Error Resume Next ：当一个运行时错误发生时，程序转移到紧接着发生错误的语句之后的语句，并在此继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。
简言之，On Error Resume Next的作用就是，哪行发生错误，就忽略这一行不执行，直接跳到错误行的下一行继续运行。
On Error GoTo 0 ：禁止当前过程中任何已启动的错误处理程序。
二、On Error 语句的实例
实例一：
On Error GoTo MyWrong
Sheets("绩效工资").Delete '如果绩效工资工作表存在，则马上删除并强制退出程序
Exit Sub
MyWrong: '如果绩效工资工作表不存在,则无条件转移到该处，并给出提示！
MsgBox "绩效工资工作表不存在！"
实例二：
On Error Resume Next
Sheets("绩效工资").Delete '删除绩效工作工作表；不管绩效工资工作表存不存在，都不会有任何错误提示
MsgBox "绩效工资工作表不存在！"
实例三：
On Error GoTo MyWrong
On Error goto 0
Sheets("绩效工资").Delete '删除绩效工作工作表；
MyWrong: '如果绩效工资工作表不存在,则无条件转移到该处，并给出提示！
MsgBox "绩效工资工作表不存在！"
代码说明，由于On Error goto 0已经禁止当前过程中任何已启动的错误处理程序，因此，就相当于没有On Error GoTo MyWrong，只要遇到问题，Excel就会发生异常，弹出提示甚至崩溃。
请注意On Error GoTo MyWrong和On Error goto 0的顺序，不能颠倒。
[互联动态]Office 2008 介绍
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
