处理运行时错误
可能会用到这些语句
因为执行过程时,总会遇到一些无法预料、无法避免的运行时错误,如激活一个根本不存在的工作表,将一个空单元格设置为除数,将工作表重命名为一个已经存在的名称等,所以无论编写代码时多么认真、仔细,都不能避免在执行过程时发生错误。
然而,有些运行时错误,是可以预先知道它们发生的位置的,对这种预先知道可能发生的错误,可以在过程中加入一些错误处理的代码,以保证过程能正常执行。
在VBA中,通过 On Error语句来获取过程中运行时错误的信息,并对错误进行处理。
如果出错,
让过程跳转到另一行代码处继续执行
如果希望在发生运行时错误时,过程能自动跳转到指定行的代码处继续执行,可以使用代码:
On Error GoTo Line
其中,代码中的“Line”是替 GoTo语句设置的标签。这个语句告诉 VBA,当在“On Error GoTo Line”这行代码之后发生运行时错误时,跳转到标签所在行的位置继续执行过程,如下图所示:
如果活动工作簿中没有标签名称为“Excel”的工作表,那么执行这个过程后,得到的是如图 9 -25 所示的结果。
图9-25 使用On Error 语句处理过程中的运行时错误
如果出错,
忽略出错行的代码继续执行
On Error Resume Next是VBA中另一个处理运行时错误的语句。在执行过程时,如果On Error Resume Next之后发生运行时错误,则忽略存在运行时错误的代码,继续执行之后的其他代码。如下图所示:
因为VBA会忽略On Error Resume Next之后所有存在运行时错误的代码,所以执行这个过程后,无论工作簿中是否存在标签名称为“Excel”的工作表,VBA都不会为是否能执行代码 Worksheets("Excel").Select 提示错误信息, Exit Sub也一定会被执行,MsgBox函数所在的代码行将不会得到执行的机会。
注意:在编写过程时,因为只有On Error语句之后发生的运行 时错误才会被捕捉到,所以应该把On Error语句放在可能发生运行时错误的代码之前。
停止对过程中运行时错误的处理
无论是On Error GoTo Line语句,还是On Error Resume Next语句,只要在它们之后的代码发生运行时错误,都会按预先设置好的处理方式执行过程。可是执行过程时真正发生运行时错误的代码,有可能并不是预先估计会出错的那行代码,再使用预设的方式处理错误,未必就是正确的,如下图所示:
此时,如果活动工作簿中存在标签名称为“Excel”的工作表,但没有标签名称为 “ExcelHome”的工作表,执行过程后,得到的是如图 9 - 26 所示的结果。
图9-26 处理过程中存在的运行时错误
很显然,这并不是希望得到的结果。在这个过程中,通过On Error GoTo Er设置的,是当 Worksheets("Excel").Select 执行出错时的处理方式,而在刚才的例子中,发生运行时错误的却是另一行代码。
如果不希望其他代码出错时,也按预设的错误处理方式执行过程,可以在希望处理运行时错误的代码之后,停止对之后代码中可能存在的运行时错误的处理。
要停止对运行时错误的处理,可以使用On Error GoTo 0 语句,在过程中写入了On Error GoTo 0 后,那么无论在这行代码之前做了怎样的设置,之后出现的运行时错误都不会再按之前的设置执行过程,除非之后又通过On Error GoTo Line或On Error Resume Next设置了运行时错误的处理方式,如下图所示:
如果活动工作簿中拥有名为“Excel”的工作表,但没有名为“ExcelHome”的工作表, 则执行过程就会出错,如图 9-27 所示。
图9-27 发生运行时错误的过程
单击对话框中的【调试】按钮,让过程进入中断模式,可以看到过程出错的代码所在行,如图 9- 28 所示。
图9-28 执行过程时出错的代码
如果要处理这行代码可能发生的运行时错误,应重新使用On Error GoTo Line或On Error Resume Next设置,如下图所示:
这样,执行过程后就能得到期望的结果了,如图 9 -29 所示。
图9-29 处理过程中出现的运行时错误
处理运行错误的小窍门,你学会了吗?
推荐阅读
北京大学出版社
《别怕,Excel VBA其实很简单》
京东图书 每满100减50
数量有限,手慢无!
温馨提示
2. 分享目的仅供大家学习和交流,您必须在下载后24小时内删除!
3. 不得使用于非法商业用途,不得违反国家法律。否则后果自负!
4. 本站提供的源码、模板、插件等等其他资源,都不包含技术服务请大家谅解!
5. 如有链接无法下载、失效或广告,请后台提交工单处理!
6. 本站资源售价只是赞助,收取费用仅维持本站的日常运营所需!
7. 如遇到加密压缩包,请使用WINRAR解压,如遇到无法解压的请后台提交工单!
【免责声明】:
本站所发布的一切资源仅限用于学习和研究目的;不得将上述内容用于商业或者非法用途,否则,一切后果请用户自负。本站信息来自网络,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑中彻底删除上述内容。如果您喜欢该程序,请支持正版软件,购买注册,得到更好的正版服务。
【关于转载】:
本站尊重互联网版权体系,本站部分图片、文章大部分转载于互联网、所有内容不代表本站观点、不对文章中的任何观点负责、转载的目的只用于给网民提供信息阅读,无任何商业用途,所有内容版权归原作者所有
如本站(文章、内容、图片、视频)任何资料有侵权,先说声抱歉;麻烦您请联系请后台提交工单,我们会立即删除、维护您的权益。非常感谢您的理解。
【附】:
二○○二年一月一日《计算机软件保护条例》第十七条规定:为了学习和研究软件内含的设计思想和原理,通过安装、显示、传输或者存储软件等方式使用软件的,可以不经软件著作权人许可,不向其支付报酬!鉴于此,也希望大家按此说明研究软件!
注:本站资源来自网络转载,版权归原作者和公司所有,如果有侵犯到您的权益,请第一时间联系我们处理!
-----------------------------------------------------------------------------------------------------------
【版权声明】:
一、本站致力于为源码爱好者提供国内外软件开发技术和软件共享,着力为用户提供优资资源。
二、本站提供的源码下载文件为网络共享资源,请于下载后的24小时内删除。如需体验更多乐趣,还请支持正版。
三、如有内容侵犯您的版权或其他利益的,请编辑邮件并加以说明发送到站长邮箱。站长会进行审查之后,情况属实的会在三个工作日内为您删除。
-----------------------------------------------------------------------------------------------------------
源码村资源网 » asp代码错误检查(asp80020009错误)
1 评论