【转载】VBA代码的调试和错误处理【vba吧】

左丘明说："人非圣贤, 孰能无过? 过而能改, 善莫大焉"，他还说："视已非而不自见，专窥人眚以为能，斯乃鄙恶之人也"。
翻译一下，他说人都不是神仙，
写VBA代码没有人能一遍过，
重点是你得学会调试，
出错了懂得修改，然后就比抽几口烟还舒服了。
他还说，从来看不见自己错，
专门挑他人的错误
并以此当能耐的，
揩是衰仔。
本贴大致分如下三个部分，如果您已经是位神仙了，麻烦您出门向右转弯。
【一】错误种类与描述
【二】代码调试与排错
【三】错误处理
-------------------------------------------
【一】错误种类与描述：
编译错误，此时代码还未执行，VBE提示输入的代码存在有语法错误
运行错误, 运行时才会出现的错误，错误一般是与待处理的数据相关，或者与数据的处理方法有关
逻辑错误，很可能代码执行正常，但是结果不符合目标
错误代码及含义：
3 无Go Sub返回
5 无效的过程调用或参数
6 溢出
7 内存溢出
9 下标越界
10 该数组被固定或暂时锁定
11 除数为零
13 类型不匹配
14 溢出串空间
16 表达式太复杂
17 不能执行所需的操作
18 出现用户中断
20 无错误恢复
28 溢出堆栈空间
35 子过程或函数未定义
47 DLL应用程序客户太多
48 加载DLL错误
49 DLL调用约定错误
51 内部错误
52 文件名或文件号错误
53 文件未找到
54 文件模式错误
55 文件已打开
57 设备IO错误
58 文件已存在
59 记录长度错误
61 磁盘已满
62 输入超出文件尾
63 记录号错误
68 设备不可用
70 拒绝的权限
74 不能更名为不同的驱动器
75 路径/文件访问错误
76 路径未找到
91 对象变量或With块变量未设置
92 For循环未初始化
93 无效的模式串
94 无效使用Null
96 由于对象已经激活了事件接收器支持的最大数目的事件，不能吸收对象的事件
97 不能调用对象的友元函数，该对象不是所定义类的一个实例
98 属性或方法调用不能包括对私有对象的引用，不论是作为参数还是作为返回值
321 无效文件格式
322 不能创建必要的临时文件
325 资源文件中格式无效
380 无效属性值
381 无效的属性数组索引
382 运行时不支持Set
383 (只读属性)不支持Set
385 需要属性数据索引
387 Set 不允许
393 运行时不支持Get
394 (只读属性)不支持Get
422 属性没有找到
423 属性或方法未找到
424 要求对象
430 类不支持自动化（Automation）或不支持期待的接口
432 自动化(Automation)操作时文件名或类名未找到
438 对象不支持该属性或方法
440 自动化(Automation)错误
442 远程控制到类型库或对象库的连接丢失，按下对话框的[lbk]lbk[rbk]确定[lbk]rbk[rbk]按钮取消引用
443 Automation对象无缺省值
445 对象不支持该动作
446 对象不支持命名参数
447 对象不支持当前的本地设置
448 未找到命名参数
449 参数不可选
450 Protperty过程未定义，Property get 过程未返回对象
452 无效的序号
453 指定的DLL函数未找到
454 代码资源未找到
455 代码资源锁定错误
457 该关键字已经与该集合的一个无素相关联458 变量使用了一个Visual Basic不支持的自动化(Automation)类型
459 对象或类不支持的事件集
460 无效的剪贴板格式
461 方法和数据成员未找到
462 远程服务器不存在或不可用
463 类未在本地机器上注册
481 无效的图片
482 打印机错误
735 不能将文件保存到TEMP
744 要搜索的文本没有找到
746 替换文件太长
1004 应用程序定义或对象定义错误

【二】代码调试与排错
代码的三种模式：
设计模式，在编辑器编写代码
运行模式，代码正在执行中
中断模式，代码在运行中暂停等待状态
进入中断模式(调试模式)：
1. Ctrl+Break/Pause, 可强行中断
2. VBE设置断点，在要设置断点的代码行的窗左边栏单击，执行代码后运行到此处会进入中断模式
3. 代码中加入Stop命令，程序执行到Stop也进入中断
排错第一步：要先熟悉下各种错误，错误的种类与描述在【一】中已述。
排错第二步：根据经验定位错误的位置。依代码的执行顺序，错误一般发生在报错的那一行，但也经常发生在报错的前一行。
排错第三步：通过对断点前后代码检查，分析错误产生的原因。
此时要用到编辑器的两个视窗，在视图菜单上打开，"本地窗口"和"立即窗口"
本地窗口，代码中的断点是程序运行到当前状态的横截面，在本地窗口可以查到看当前变量和对象中的数据，检查数据去寻找数据与当前命令失败的原因关系。
立即窗口，在立即窗口执行一条命令，直接引用代码中的变量值，或者对象的属性和方法。配合使用Debug.print，输出变量的值和对象属性，或直接执行对象的方法，以检查数据与错误的关系。
可以设置多个断点，运用上述方法检查断点的数据状态。
可以用F8 来单步执行每一条命令以做检查。
排错重点是找错，找出产生错误的原因，后续修正错误就相对简单了。
常见错误解析：
运行时错误’1004‘ - 运行时错误都是程序试图访问不存在或者无法实现的操作方法。1004也不例外，但1004有很多不同的提示，但很可能来自语法错误，如：参数中的标点符号，名字多余空格，打错的变量、对象名，方法的名称等等
运行时错误’9‘ 下标越界 - 下标指的就是数组或对象数组的索引，越界就是不存在。下标越界，所指定的数组元素不存在，为什么会不存在？比如只有三个工作表，代码要用第四个，比如指定的表名字在工作薄中没有。
运行时错误’91‘ 对象变量或With块变量未设置 - 对象变量没初始化成功，没用set或赋值失败，with endwith没配对使用
编译错误，发现二义性的名称 - 存在同名的过程或函数
编译错误，无效外部过程 - 变量定义在过程之外
编译错误，当前范围内的声明重复 - 变量有重复声明

【三】错误处理
前文已经提到过排错，按常理，已找到产生的原因，接下来修改代码到正确，就算结束了。但是有没想过，上述的做法都是事后处理，即对已经发生了的错误进行处置。
有没有一种方法，能在错产生之前，对可能产生的错误采取预判和程序化的操作呢？
有的，这就是错误处理。错误处理方法两个内容：一. On Error 二. Err对象
一. On Error
On Error Goto <错误处理行号>
<错误处理行号> - 是用于错误产生后执行的代码块，它通常放置于End Sub之前，它的前边会放Exit Sub，以此来避免正常代码执行到错误处理的代码。vba的行号设置规则，是行号独占一行，行号名字后边加冒号
On Error Resume Next , 这条命令开始后，它下边代码在产生错误后，会继续执行下一行，即无视任何错误。
On Error Goto 0, 这条命令开始后, 它下边代码会取消On Error Resume Next的效果。
二. Err对象
Err对象是全局的固有对象，不需要在代码中创建实例，也就是说要用的时候随时拿来使用。当程序产生错误时，Err对象的属性会被自动赋值。
Err对象的常用属性：
Err.Number: 返回错误的ID号，如:1004
Err.Description: 返回错误的详细信息，如: 下标越界
Err.Source: 返回产生错误的应用程序或对象
Err对象的常用方法：
Err.Clear: 清除Err对象中的数字和文本，即清除错误的编号和描述
注：通过设置Err.Number=0 与 Err.Clear 的结果相同
Err.Raise: 产生一个运行时错误，也可以用它来创建自定义错误。
格式： Err.Raise 错误号, [错误源], [错误描述], [帮助文件], [帮助内容]
举例： Err.Raise 9999, "VBA吧", "只看贴但从不点赞的人，不江湖！"
注：Raise 的参数错误号是必须的，如果是系统已经定义的错误号（本贴1楼）即产生已定义的错误。如果自定义一个错误，号码范围需在513-65535之间。
世上本无健壮的代码，代码之所以能健壮，都是在程序上通过上述错误处理的方法，对错误进行了容错的处理。
实际上对错误的处理，本身并没有消灭错误，错误依然在那里，改变的是我们，对错误的已知和未知的状态。
VBA学习也是如此，不要怕每一次错误的产生，发现并排除，乃至处理错误，才是VBA能力提升的好时机。
最后，分享一下最全的VBA参考手册，作为本贴结束。
它在每一台安装过Office软件的电脑上，VBA6 和 VBA7可能有些不同，大致路径如下图：

学习

此贴够不够资格申请加个精呢？你们是赞同呢，还是赞同呢？
赞同的，帮我爱他版主

日	一	二	三	四	五	六

【转载】VBA代码的调试和错误处理

扫二维码下载贴吧客户端