ExcelVB编程24学时教程13.docVIP

ExcelVBA编程24学时教程13 本文由water335贡献 pdf文档可能在WAP端浏览体验不佳。建议您优先选择TXT，或下载源文件到本机查看。 13学时 错 误 处 理 在前一学时里，我们已经学习了有关调试方面的内容，所谓调试，就是对可以预测的问 题进行处理并进行纠正的过程。但是，如果问题是不可控制和不可预测的话，应该怎么处理 呢？除非程序员开发的应用程序很小，否则，就没有办法预测到应用程序运行时可能发生的 所有问题。开发人员不能够控制操作系统、也不能够控制硬件平台的选配，而且肯定不能够 控制用户的操作。 这个学时中要学习的重点包括： ? 错误处理是什么 ? 设置错误捕获 ? 编写错误处理实用程序 ? 提供从错误处理程序跳出的出口 ? 创建集中的错误处理程序 13.1 错误处理 新术语 为了处理突发事件，开发人员需要编写错误处理程序。所谓错误处理程序，就是应 用程序中用来捕获和处理错误的实用程序。 错误处理程序的开发过程可以分为下面三个步骤： 1）设置错误捕获 错误。 2）编写错误处理实用程序 错误处理实用程序就是当错误发生时程序要跳转到的地方。 3）提供从错误处理程序跳出的出口 事情。 换句话说，就是当错误处理完毕时，需要程序做的 当设置错误捕获时，就是告诉程序当错误发生时，到什么地方去捕获 13.2 步骤1：设置错误捕获 设置错误捕获就是告诉 VBA捕获错误的位置，是通过 On Error语句来实现的。在一个给定 的程序中，任何一个时刻只能够启用一个错误捕获。当然，这不是意味着过程就只能够拥有 一个On Error语句，而是说，如果过程中有多个 On Error语句的话，只有最近正在执行的那个 捕获陷阱才是起作用的。 新术语 处理错误有两种不同的方式，其中之一是执行内联错误处理。内联错误处理在On Error 语句中有一些指令来处理错误。要执行内联错误处理的话，可以使用下面语句中的任何一句： ? On Error Resume 如果有运行时刻的错误发生，那么程序将从导致错误发生的语句处重 新开始执行。 ? On Error Resume Next 如果有运行时刻的错误发生，那么程序就从导致错误发生的语 句的下一句继续执行下去。 第13学时 错 误 处 理使用 111 要禁止错误的处理程序，可以在程序中初始化 On Error语句以后，使 用On Error GoTo 0语句。在测试程序或过程并且不想启用错误处理时，禁 止错误处理程序是非常有用的。 错误处理的两种不同处理方式中，不推荐使用内联错误处理方法，最好是采用错误捕获 的处理方式，采用错误捕获能够跳转到错误处理实用程序，这样的方式使开发人员能够对各 种各样的错误进行灵活的处理。 为了设置能够跳转到错误处理实用程序的错误捕获，可以使用 On Error GoTo“行”语句， 这里“行”代表的是位于错误处理代码前面的行标号。要创建行标号的话，只要为该行输入 一个名称，后面跟一个冒号就可以了。 V B A中的行标号需要独占一行。程序清单 1 3 - 1给出了 包含有错误处理实用程序的过程的基本框架。 程序清单 13-1 包含错误处理实用程序的过程的基本框架 1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: Sub WithErrorHandler () On Error GoTo ErrorHandler The body of the procedure goes here. . . . The next statement, Exit Sub or Exit Function (whatever is appropriate),goes before the line label for the error handler. This is done so that if there are no errors, the errorhandling routine is skipped. Exit Sub The next line is the line label for the error-handling routine. ErrorHandler: The code for the error handler goes here. . . . End Sub 13.3 步骤2：编写错误处理实用程序 当错误发生时， VBA就查找程序中的行标号，并开始跳转到行标号所在的位置继续执行。 错误处理实用程序的代码评估所发生的错误并采取相应的措施。评估处