Ecel VBA编程 可捕获的错误.docxVIP

Excel VBA 编程 可捕获的错误 错误一般发生在应用程序运行时，也有一些错误发生在开发期间或编译期间，这种错误被称为可捕获的错误。可使用 On Error 语句与 Err 对象来探测并回应可捕获的错误。下表 19-1 列出了 1~1000 之间的错误代号。 表 19-1 代码信息表 代码 代码 功能 3 没有返回的 GoSub 语句 无效的过程调用 溢出 内存不足 数组索引超出范围（下标越界） 此数组为固定的或暂时锁定 除数为零 类型不匹配 字符串空间不足 表达式太复杂 不能完成所要求的操作 发生用户中断 20 没有恢复（Resume）的错误 28 堆栈空间不足 35 没有定义子程序（Sub）、函数（Function），或属性（Property） DLL 应用程序的客户端过多 加载 DLL 时发生错误 DLL 调用规格错误 内部错误 错误的文件名或号 找不到指定的文件 文件模式错误 文件已打开 I/O 设备错误 文件已存在 记录的长度错误 磁盘已满 输入已超过文件结尾 记录的个数错误 文件过多 设备不可用 没有访问权限 磁盘尚未就绪 不能用不同的驱动器重新命名 路径/文件访问错误 找不到路径 尚未设置对象变量或 With 区块变量 For 循环没有被初始化 无效的模式字符串 Null 的使用无效 97 不能在对象上调用 Friend 过程，该对象不是定义类的实例 298 指定的系统 DLL 不能加载 在指定的文件中不能使用字符设备名 无效的文件格式 不能建立必要的临时文件 325 源文件中有无效的格式 327 未找到命名的数据值 328 非法参数，不能写入数组 335 不能访问系统注册表 336 ActiveX 部件不能正确注册 337 找不到 ActiveX 部件 338 ActiveX 部件的运行有错 360 对象已经加载 361 不能加载或卸载该对象 363 未找到指定的 ActiveX 控件 365 在当前状态下无法卸载 368 指定文件过时。该程序要求较新版本 371 指定的对象不能用作供显示的所有者窗体 380 属性值无效 381 无效的属性数组索引 382 属性设置（Set）不能在运行时完成 383 属性设置不能用于只读属性 385 需要属性数组索引 387 属性设置不允许 393 属性的取得（Get）不能在运行时完成 394 属性的取得不能用于只写属性 400 窗体已经显示，形式上不能再进行 Show 402 代码必须先关闭或隐藏顶端模式窗体 419 没有使用此对象的权限 422 找不到属性 423 找不到属性或方法 424 需要对象 425 对象用法无效 429 ActiveX 部件不能建立对象或返回对此对象的引用 430 类不支持自动操作 432 在自动操作期间找不到文件或类名 438 对象不支持此属性或方法 440 自动操作错误 442 远程处理的类型库或对象库的连接已丢失 443 自动操作对象没有缺省值 445 对象不支持此动作 446 对象不支持指定参数 447 对象不支持当前的位置设置 448 找不到指定参数 449 参数无选择性或无效的属性设置 450 参数的个数错误或无效的属性设置 451 对象不是集合对象 452 无效的序号 453 找不到指定的 DLL 函数 454 找不到源代码 455 代码源锁定错误 457 关键字已经与集合对象中的某元素相关 458 变量使用的型态是 Visual Basic 不支持的 459 这个部件不支持事件 460 剪贴板格式无效 461 指定的格式与数据格式不匹配 480 不能创建 AutoRedraw 图象 481 图片无效 482 打印机错误 483 打印驱动不支持指定的属性 484 问题可能源于打印机，请检查打印机的安装是否正确 485 图片的类型无效 486 不能用这种类型的打印机打印窗体图象 520 不能清空剪贴板 521 不能打开剪贴板 735 不能将文件保存至 TEMP 目录 744 找不到要搜寻的文本 746 取代数据过长