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

前面我们说到，晚绑定是通过 CreateObject 将对象变量和具体的对象类型绑定在一起的，那 CreateObject 是怎么实现这种绑定的呢？

以 Dictionary 为例。

Dim dict As ObjectSetdict = CreateObject("Scripting.Dictionary")

CreateObject 的参数 Scripting.Dictionary 是 Dictionary 这个类的 ProgID，而 Dictionary 这个类又是 Scripting 这个程序中的一个组件。

ProgID 的格式是：<Program>.<Component>.<Version>，譬如 Word.Document.6 表示 Word 程序中的 Document 对象，其中的版本号 6 特指 Word 6.0/95 的文档对象。

由此可知，Scripting.Dictionary 是指 Scripting 程序中的 Dictionary 对象，那 Scripting 程序又是什么呢？

我们在引用窗口可以看到：

图1 Microsoft Scripting Runtime

我们说过，若使用早绑定创建 Dictionary 对象，必须添加对 Microsoft Scripting Runtime 的引用。从上面的引用窗口可以看出，Microsoft Scripting Runtime 对应的 DLL 是 C:\Windows\System32\scrrun.dll。

因此，Microsoft Scripting Runtime 是一个库（library），对应的程序文件是 scrrun.dll，Scripting 是这个库的程序名字，Dictionary 是这个库中的一个对象组件，因此 Scripting.Dictionary 就是指 Microsoft Scripting Runtime 库中的 Dictionary 对象。这种对应关系登记在了 Windows 注册表中。

Windows 注册表登记了 COM 组件的 ProgID 和 CLSID 以及二者的映射关系，如图2：

图2 注册表：ProgID -> CLSID

注意：COM 组件的 ProgID 登记在 HKEY_LOCAL_MACHINE\SOFTWARE\Classes 目录下（为了方便，我们称注册表中的树形结构为目录结构），从这里可以找到 COM 组件的 ProgID，从此 ProgID 可以得到相应的 CLSID，如图2。

由 CLSID，可以找到相应的 COM 组件，如图3：

图3 注册表：CLSID

从图2 的 CLSID，就可以找到该 CLSID 对应的 InProcServer32，即对应的 COM 程序。

了解了这些对应关系，就可以知道，CreateObject 函数从 Scripting.Dictionary 这个 ProgID，查注册表得到相应的 CLSID，再从 CLSID 得到 InProcServer32 中的 scrrun.dll，然后加载这个 DLL，并从这个 DLL 中的 Dictionary 对象类创建相应的实例，进行初始化后，将该实例返回给 dict 对象变量。此时，dict 变量才算完成与 Dictionary 对象类型的绑定。

图1 引用窗口中所显示的 Microsoft Scripting Runtime 的定位等信息也是从注册表中查询的。

所以，我们只需要记住 Scripting.Dictionary 这个 ProgID，就可以创建 Dictionary 类型的对象，而不用管复杂难懂的 CLSID，也不用管对应的 scrrun.dll 到底位于何处。

注：

ProgID 和 CLSID 都是 COM 技术中的概念。我们已经熟悉了 ProgID，这是一个面向用户和开发者的易读字符串，不具备全局唯一性，因此有可能发生冲突，即同一个 ProgID 表示不同的 COM 组件，譬如两家公司的 COM 组件使用了相同的 ProgID。
CLSID 则不同，这是一个面向机器的 128 位全局唯一标识符，虽然冲突的概率不可能绝对为 0，但基本上等于 0。因此 CLSID 可以放心地用来唯一标识某个对象。

我们可以从注册表中通过 ProgID 找到相应的 CLSID，但手工操作不方便，为此写了一段 PowerShell 代码，可以通过给出的 ProgID 查找注册表以找出相应的 CLSID 和 COM Server，如图4 所示：

图4 Lookup-CLSID.ps1

Lookup-CLSID 的用法如下：

图5 Lookup-CLSID 用法

由图可见，我们可以查询 Scripting.Dictionary、Scripting.FileSystemObject 的 CLSID、Server 等相关信息，也可以查询 Excel.Application 等其他的 COM 程序的信息。

scrrun.dll（即 Scripting）是一个 InProcServer，即由其他程序如 VBA 加载到自己程序空间的 COM 服务器，Excel.EXE 则是一个在本地独立运行的 COM 服务器（即 LocalServer）。

Microsoft Scripting Runtime 这个库（即 Scripting）除了包括字典 Dictionary 之外，更主要的是 FileSystemObject 这个文件系统对象。这个对象为我们访问 Windows 的文件系统提供了方便。我们将在下一篇文章中讨论。

本文涉及到的文件已打包为 Excel-VBA-Obj.v2.rar，并上传至夸克网盘。

地址：https://pan.quark.cn/s/f4525cc7037f