Excel VBA 编程基础 -- 对象(一)

从今天开始，我们讨论 VBA 中的对象。

我们已经接触到一些 VBA 中的对象（object），譬如 Debug、Err、Collection、Dictionary 等等。

我们知道，对象具有属性（property），譬如 Err 对象有 Number（错误号）、Description（错误信息）、Source（错误源头）等属性。这些属性向我们提供一些信息，我们也可以通过向属性赋值为其他代码提供信息。例如：

Function Adding(ByRef xa As String) AsDouble  If Not IsNumeric(xa) Then    Err.Clear    Err.Raise cecInvalidParameter, "Adding", "xa is not numeric"Else    Adding = xa +3.5End IfEndFunction

这段代码中，我们通过为 Err.Raise 提供参数，而由 Err.Raise 方法内部去根据这些参数构造 Err 对象，用来向外界提供关于参数 xa 的信息。这段代码虽然没有直接向 Err.Number、Err.Description、Err.Source 属性赋值，但这些赋值动作是在 Raise 方法内部完成的。

我们还知道，对象具有方法（method），譬如 Err 对象有 Clear、Raise 等方法。我们通过调用对象的方法来让对象完成指定的任务。例如，上面的代码中，我们调用 Err 对象的 Clear 方法来清除当前 Err 对象中的状态（state），以便 Err.Raise 方法能在一个初始状态的 Err 对象中把我们的参数赋给 Err 的各个属性，从而构造一个全新的 Err 对象。

注意：Err.Clear 用来清除自身的状态。这是因为 Err 对象在整个 VBA 程序中只有一个，用术语来说，Err 对象是 VBA 的一个 singleton，意为单体对象。所以，这个对象不需要你用 New 或 CreateObject 来创造（实例化），直接拿来用即可。

对象除了上面所述的属性和方法之外，还具有事件（event）。所谓事件，就是在满足一定条件时，激发执行一段代码，完成特定的功能。方法和事件没有本质区别，只不过事件是在满足条件时自动激发执行，而方法则需要调用者主动调用执行。

以上就是对象所具有的三个本质特征。使用对象的好处是：我们只需要了解对象的属性、方法、事件这些公开的接口，而不需要了解（很多时候也无法了解）对象内部的实现。我们只需要知道某个对象能做什么即可，这就是对象的抽象（或者说封装）机制带给我们的好处。

拿汽车打个比方。我们作为驾驶员（司机），不需要知道汽车是怎么造出来的，只需要知道如何控制车辆转弯、如何加速、如何减速、如何启动、如何停止等等即可。车辆的状态会通过一些指示灯或者查询显示给你，这些就是车辆这个对象的属性。我们通过控制方向盘、油（电）门、刹车、挡位等来驾驶汽车，这些就是车辆这个对象的方法。

有了这些铺垫，我们现在就来看看，VBA 中都有哪些对象可供我们使用。

首先，Excel 本身就是一个对象系统，它向外界呈现两种对象形式：

面向用户：Excel 呈现的是菜单、按钮、对话框等等，用户通过鼠标、键盘来操作菜单、按钮、对话框等，使得 Excel 按照我们的指令完成特定的动作。
面向程序员：Excel 呈现的是 Workbooks、Worksheets、Range、Cells 等对象，我们在代码中通过操作这些对象的属性和方法，让 Excel 按照我们的指令完成特定的动作。

其实，不管是面向用户，还是程序员，Excel 都是用的同一套对象模型（object model），只不过这个对象模型在面向用户时是通过可见的用户界面元素作为中介来供用户操作的。

所谓对象模型（object model），是指一套体系化的对象层次系统，如下图所示：

图1 Excel 对象模型

图1 所展示的是 Excel 主要的对象层次结构。

Excel 的这个对象模型中的各种对象都是可以由 VBA 代码来访问的。除了 Excel 本身的对象系统，VBA 还有哪些对象呢？

点击 VBE 的“视图” -> “对象浏览器”，或者按 F2 快捷键，弹出对象浏览器窗口，如图2所示：

图2 VBA 对象浏览器

在对象浏览器中，我们可以看到，这里面有 Excel、stdole、VBA、VBAProject 等几个大类。其中，Excel 我们上面已经做了介绍。stdole 是 OLE 自动化，用来实现在 Excel 中嵌入其他文档，譬如 Word、PowerPoint、图片等。VBA 就是指 VBA 自己，VBAProject 是当前的 VBA 项目。

下面我们看看 VBA 中都有哪些对象，如下图：

图3 VBA 中的对象

由图可见，VBA 中有我们已经熟悉的 Collection（我们在讲 VBA 的结构化数据类型时已经讨论过），有前面讨论过的 Err 对象（Err 是 ErrObject 类型的一个单体实例）。当然，虽然这个窗口称为“对象”浏览器，但这里面不仅仅有对象，也有其他类型的数据结构，譬如枚举类型（vbAppWinStyle 等），模块（Math 等）。

下面是 VBAProject 中的对象，如图4：