后期绑定全局变量？

Question

我正在为 Excel 使用 VBA。据我了解，全局变量需要在任何 subs 之外声明。这是所有潜艇都可以访问它们的唯一方式。

同时，我想进行后期绑定以引用“Microsoft Scripting Runtime”库（以使用字典对象类型），这样最终用户就不必自己动手了。

我的代码如下：

On Error Resume Next
strGUID = "{420B2830-E718-11CF-893D-00A0C9054228}"
ThisWorkbook.VBProject.References.AddFromGuid GUID:=strGUID, Major:=1, Minor:=0

Dim Dic1 As Object
Set Dic1 = CreateObject("Scripting.Dictionary")
Dim Dic2 As Object
Set Dic2 = CreateObject("Scripting.Dictionary")

如果我想用后期绑定声明全局字典对象怎么办？看起来 VBA 不允许我将任何代码放在 subs 之外（除了声明）。

如何在不需要最终用户自己配置库引用的情况下声明全局字典对象？我应该执行以下操作吗？

Dim Dic1 As Object
Dim Dic2 As Object

Sub Prog1()
    On Error Resume Next
    strGUID = "{420B2830-E718-11CF-893D-00A0C9054228}"
    ThisWorkbook.VBProject.References.AddFromGuid GUID:=strGUID, Major:=1, Minor:=0

    Set Dic1 = CreateObject("Scripting.Dictionary")
    Set Dic2 = CreateObject("Scripting.Dictionary")
End Sub

Answer 1

与 VBA 代码本身一样，项目引用不会在用户打开主机工作簿时神奇地消失。它们与宿主文档中的代码一起保存。

所以，你的问题的前提是错误的：用户永远不需要调整项目引用。

此外，Scripting Runtime 类型库是标准问题，并且在本世纪（甚至在此之前）构建的每台 Windows 机器上都提供了完全相同的版本，这意味着除非您的代码需要在 Mac 上运行，否则无需永远后期绑定脚本运行时库。

如果您的代码需要在 Mac 上运行，该库无论如何都不会后期绑定，因为它不会在主机上找到，因此后期绑定脚本运行时只会产生愚蠢的错别字并引入IntelliSense 有助于防止的其他容易避免的错误。

---

ThisWorkbook.VBProject.References.AddFromGuid GUID:=strGUID, Major:=1, Minor:=0

这违背了后期绑定的全部目的：它使用 VBIDE 可扩展库（需要降低宏安全设置）以编程方式添加一个引用，您可以在设计时通过 VBE 的 工具 菜单。

后期绑定的代码根本不需要引用。不在编译时，不在运行时。

添加引用，保存，然后声明您的对象As Scripting.Dictionary 并享受早期绑定代码的好处。

Set Dic1 = New Scripting.Dictionary

这就是你所需要的。

---

如果我想用后期绑定声明全局字典对象怎么办？看起来 VBA 不允许我将任何代码放在 subs 之外（除了声明）。

在这方面，后期绑定与早期绑定没有任何不同。迟绑定代码和早绑定代码之间的唯一区别在于声明的As 子句：

Private foo As Object ' no compile-time type knowledge: late-bound
Private bar As Dictionary ' compile-time type knowledge: early-bound

您如何初始化该对象引用对声明的后期/早期绑定性质没有影响。

这会在注册表中查找 ProgID 以查找库和类型：

Set foo = CreateObject("Scripting.Dictionary")

这使用了项目引用：

Set foo = New Scripting.Dictionary

两者都是正确的，并且都适用于早期或晚期绑定声明。除非，如果您已经拥有对类型库的引用，则无需访问注册表即可找到该库 - 只需 New 即可！

Answer 2

全局变量确实不需要，应该避免。但是，如果您出于自己的原因决定使用它们，则可以将它们放入 Workbook_Open 事件中：

Option Explicit

Dim Dic1 As Object
Dim Dic2 As Object

Private Sub Workbook_Open()

    Set Dic1 = CreateObject("Scripting.Dictionary")
    Set Dic2 = CreateObject("Scripting.Dictionary")

End Sub

因此，每次打开工作簿时都会创建对象。