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

上文我们说到 ErrObject，VBE 的对象浏览器中明确显示 ErrObject 是一个类（Class）。从这里可以看出，对象浏览器（Object Browser）这个名称有些“名不副实”：名为“对象”浏览器，但 Err 对象和 Debug 对象在这个“对象”浏览器中都找不到，反而作为类型的 ErrObject 却出现在“对象”浏览器中。同样地，前面讲过的 Conversion 和 DateTime 这样的模块也都出现在对象浏览器中。

所以，虽然名为“对象”浏览器，却没有包含什么“对象”，譬如下图：

图1 Range as Class

在对象浏览器中，Range 被标记为 Class（类）。而在 VBA 文档中，则称为 Object（对象）。见下图：

图2 Range as Object

这个问题我们以前在讲 Collection 时曾经提过，虽然 Collection 在 VBA 文档中称为对象，但实际上 Collection 是一个对象类型，即 Class（类），所以我们可以有如下的代码：

Dim c As CollectionSet c =New Collection

第一行，声明 c 为一个 Collection 类型的变量，第二行使用 New 操作符创建一个 Collection 类型的对象，并将初始化后的对象首地址赋给变量 c。我们可以笼统地称 c 为一个 Collection 类型的对象，简称为一个集合对象或集合，但实际上 c 是一个指向集合对象的指针（或引用）。

VBA 中的对象大体上分为两种类型：

内部对象类型：譬如 Collection 等 VBA 的内置对象类型，以及以后将要讲到的类模块。
外部对象：外部 COM 组件

内部对象类型的实例化是通过 New 操作符，如上面的 Collection 例子所示。对于外部对象类型的实例化，则可以通过 New 操作符（对于早绑定），也可以通过 CreateObject 函数（对于晚绑定）。

注意：内部对象类型不能通过 CreateObject 来实例化。下见图：

图3 错误的对象实例化

这段代码中有两处错误：

Set o = CreateObject("Collection")
Set o = New ErrObject

因为 Collection 是 VBA 的内部对象类型，因此不能通过 CreateObject 方法实例化，否则，将引发 ActiveX 部件不能创建对象的错误。因为在 CreateObject 函数在执行时，认为 Collection 是一个 ActiveX 组件（VBA 文档翻译为“部件”），试图通过该组件来创建对象，但创建失败，因此引发 429 号错误。

第二个错误是因为 Err 对象是一个单体实例，VBA 不再允许通过 New 操作符来创建第二个 Err 对象。但如果使用 CreateObject("ErrObject") 来创建 ErrObject 类型的对象，则引发与上面 CreateObject("Collection") 相同的错误。

对于外部 COM 组件，譬如 Scripting.Dictionary，如果添加了对该组件的引用，则使用早绑定的 New 操作符创建相应的对象；否则，使用 CreateObject 函数来创建相应的对象。CreateObject 内部需要查找注册表以获得 ProgID 相应的 CLSID，这些内容我们上一篇文章已经讲过了，此处不赘。

下面继续来看对象浏览器中的 VBA 对象：

图4 VBA 中的 FileSystem 模块

VBA 内置了一个文件系统（FileSystem）模块，在这个模块中，包含了早期 Basic 语言中实现的对文件系统的操作，譬如：

目录操作：改变当前目录（ChDir）、改变当前驱动器（ChDrive）、获取当前目录（CurDir）、创建目录（MkDir）、删除目录（RmDir）等
文件操作：获取打开文件的打开模式（FileAttr）、获取文件大小（FileLen）、获取文件创建/修改时间（FileDateTime）、获取文件属性（GetAttr）、设置文件属性（SetAttr）等

由 FileSystem 模块中的内容我们可以看到，对于文件操作最重要的打开/关闭文件的操作（Open/Close）并没有出现在这个模块中，而是作为 VBA 的语句来实现的，但文件拷贝（FileCopy）、删除文件（Kill）、关闭所有文件（Reset）等也都是 VBA 的语句，却出现在了 FileSystem 模块中。

接下来的 Financial、FormShowConstants、Global 我们先略过，下面看 Information：

图5 Information 模块

这个模块中包含了一些信息获取的函数，如 Err 获取当前的 Err 对象，IMEStatus 获取当前的输入法状态，IsArray 判断所给参数是否是数组类型，IsDate 判断所给参数是否合法日期，IsError 判断所给参数是否 Error 类型，IsNumeric 我们已经很熟悉，判断是否数值类型，IsObject 则判断所给参数是否对象类型，TypeName 和 VarType 我们已经见过很多次，不再赘述。下面重点讨论一下 IsEmpty、IsMissing、IsNull。

IsEmpty：用来判断变量是否初始化
IsMissing：用来判断调用方是否提供了可选参数的值
IsNull：用来判断表达式中是否含有 Null 值

这三者之中，IsMissing 很好理解，我们在讨论过程与函数时也已经见过 IsMissing 的用法，此处不赘。

VBA 中有三个特殊值：

Empty：Empty 表示 Variant 类型变量的初始状态（已声明但未初始化）
Null：Null 值主要用来表示数据库中字段的空值，VBA 中的变量必须是 Variant 类型
Nothing：表示对象变量的“空状态”，表示这个对象变量（指针）不指向任何对象

下图演示了 IsEmpty、IsNull、Is Nothing 的用法：

图6 IsEmpty、IsNull、Is Nothing

在这个测试例子中，首先声明变体类型的变量 a 和 Object 类型的变量 o。

然后用 IsEmpty 函数判断 a 是否为空。因为没有对 a 赋值，所以 a 肯定为空。

接下来，将 Empty 赋给 a，再次判断 a 是否为空、是否包含 Null 值。此时，IsEmpty(a) 返回 True，说明 a 仍然是空的（没有值），IsNull(a) 返回 False，说明 a 中不含有 Null 值。因为 a 中没有任何值，所以也不含有 Null 值。此时，a 的 TypeName 返回 Empty，VarType 返回 0，都说明 a 没有值。

接下来，对 a 赋值 Null，此时，IsEmpty(a) 返回 False，说明 a 已经有值，IsNull(a) 返回 True，说明 a 中含有 Null 值。此时，a 的 TypeName 返回 Null，VarType 返回 1，都说明 a 含有 Null 值。

最后，判断对象变量 o。第一次检测 o Is Nothing，结果为 True，因为此时 o 确实没有指向任何对象。接下来创建字典对象并赋给 o，并再次检测 o Is Nothing，因为此时 o 已经指向字典对象，所以结果是 False。最后给 o 赋值 Nothing，解除变量 o 与其所指向的对象（字典）之间的关系，因为此时 o 和已经不指向任何对象，因此 o Is Nothing 结果是 True。

注意：检测 Empty 值和 Null 都是使用检测函数 IsEmpty 和 IsNull，但检测对象变量为“空指针”则使用 Is Nothing 操作符，因为不存在 IsNothing 检测函数。

（未完待续）