VBA跨模块访问初始化字典报错：对象/变量未定义

1. 调整变量作用域 #

VBA中，过程内部定义的变量属于局部变量，仅当前过程可访问。要让字典跨模块调用，需将其声明为全局变量：

• 新建或打开一个标准模块（非ThisWorkbook/工作表模块），在模块最顶部（所有过程之外）添加声明：

  Option Explicit
  Public MyDict As Scripting.Dictionary ' 全局字典变量
  

2. 在Workbook_Open中初始化字典 #

打开ThisWorkbook模块，修改Open事件代码，用Set关键字初始化全局字典：

Option Explicit

Private Sub Workbook_Open()
    Set MyDict = New Scripting.Dictionary
    
    ' 可在此添加字典初始化数据，示例：
    MyDict.Add "ID001", "张三"
    MyDict.Add "ID002", "李四"
End Sub

3. 跨模块调用字典 #

在任意标准模块的过程中，直接访问全局字典即可：

Option Explicit

Sub TestGlobalDict()
    ' 先判断字典是否已初始化，避免报错
    If Not MyDict Is Nothing Then
        Debug.Print MyDict("ID001") ' 输出"张三"
    End If
End Sub

核心注意事项 #

• VBA中对象类型变量（如Dictionary）必须用Set关键字赋值，这和Python/Bash的变量赋值逻辑不同，需注意区分。
• 全局变量务必放在标准模块中声明，ThisWorkbook或工作表模块的Public变量虽能被访问，但标准模块是全局变量的规范存放位置。
• Option Explicit强制变量显式声明，能有效避免拼写错误，建议所有模块都添加。

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