如何在Excel VBA中通过后期绑定声明全局Dictionary对象？

你的思路方向完全正确！要实现无需用户手动配置库引用的全局Dictionary对象，核心就是把对象声明放在模块级（所有Sub过程之外），然后在过程内部完成对象初始化——这刚好避开了VBA不允许在模块级执行赋值/创建对象代码的限制。

不过先给你提个关键优化点：你代码里的ThisWorkbook.VBProject.References.AddFromGuid完全没必要保留！后期绑定的核心就是不需要添加任何库引用，CreateObject("Scripting.Dictionary")可以直接创建Dictionary对象，留着这段代码反而可能触发宏安全限制（比如用户的Excel信任中心禁止修改VBProject），容易引发不必要的问题。

正确的实现步骤和代码示例 #

1. 模块级声明全局对象
   在标准模块的最顶部（所有Sub/Function之外）声明对象：用Dim的话，对象只能被当前模块的过程访问；如果需要跨模块调用，换成Public即可：

   ' 标准模块顶部声明（仅当前模块可访问）
   Dim Dic1 As Object
   Dim Dic2 As Object
   
   ' 若需跨模块访问，改为：
   ' Public Dic1 As Object
   ' Public Dic2 As Object
   

2. 编写初始化过程
   创建一个专门的初始化Sub，用来创建Dictionary对象，建议加上空值判断避免重复初始化：

   Sub InitializeDictionaries()
       ' 判断对象是否已创建，防止重复初始化
       If Dic1 Is Nothing Then
           Set Dic1 = CreateObject("Scripting.Dictionary")
       End If
       If Dic2 Is Nothing Then
           Set Dic2 = CreateObject("Scripting.Dictionary")
       End If
   End Sub
   

3. 使用全局Dictionary
   在需要使用字典的过程里，先调用初始化方法，之后就可以正常操作全局字典了：

   Sub Prog1()
       ' 先确保字典已初始化
       InitializeDictionaries
       
       ' 示例操作：添加键值对
       Dic1("UserName") = "Helloguys"
       Dic2("Score") = 95
       
       ' 测试输出
       MsgBox "用户名：" & Dic1("UserName") & vbCrLf & "分数：" & Dic2("Score")
   End Sub
   

4. 可选：自动初始化
   如果希望打开工作簿时就自动初始化字典，可以把初始化代码放到ThisWorkbook模块的Workbook_Open事件里：

   ' 打开ThisWorkbook模块，粘贴以下代码
   Private Sub Workbook_Open()
       InitializeDictionaries
   End Sub
   

对你提供的代码的总结 #

你原来的代码框架是可行的，删掉那段添加引用的冗余代码后，就是一个合格的实现方案。加上对象空值判断的话，能让代码更健壮，避免重复创建对象的问题。

内容的提问来源于stack exchange，提问作者Helloguys