Excel VBA公共Dictionary对象未加载却自动填充问题求助

我之前也碰到过类似的VBA全局字典意外初始化的情况，给你几个实用的排查方向和解决思路：

• 检查自动触发的事件过程
  大概率是有你没注意到的自动运行代码触发了字典填充。比如Workbook_Open()、Worksheet_Activate()这类事件，可能在你打开工作簿、切换工作表的时候，就悄悄调用了GenData或者直接操作了这两个全局字典。
  你可以在GenData开头加一行调试代码：

  Debug.Print "GenData 触发时间: " & Now()
  

  然后打开工作簿，查看VBA编辑器的「立即窗口」，就能确认是不是自动事件触发了填充。

• 排查模块级的意外初始化
  VBA里的Public对象变量，如果在模块的声明区（所有Sub之外）不小心写了Set itmsSpot = New Dictionary，那这个变量会在模块第一次被访问时自动初始化，哪怕你没手动运行runReport。
  仔细检查所有模块的代码，确保只有runReport里才会初始化这两个字典。

• 注意全局变量的状态残留
  VBA的全局变量在Excel进程不关闭的情况下会保持状态。比如你之前运行过runReport填充了字典，之后没关闭Excel，哪怕你修改了代码，字典里的数据依然会保留，看起来像是「自动填充」的。
  可以在runReport开头加一段清空代码，确保每次运行都是全新的字典：

  If Not itmsSpot Is Nothing Then
      itmsSpot.RemoveAll
      Set itmsSpot = Nothing
  End If
  If Not itmsFwd Is Nothing Then
      itmsFwd.RemoveAll
      Set itmsFwd = Nothing
  End If
  

• 推荐改用局部变量+参数传递
  全局变量很容易引发这类状态混乱的问题，不如把字典改成runReport的局部变量，再作为参数传给GenData：

  Public Sub runReport()
      Dim itmsSpot As New Dictionary, itmsFwd As New Dictionary
      GenData itmsSpot, itmsFwd
  End Sub
  
  Public Sub GenData(spotDict As Dictionary, fwdDict As Dictionary)
      ' 这里直接操作传入的spotDict和fwdDict即可
  End Sub
  

  这样每次运行runReport都会创建全新的字典，彻底避免全局变量的状态残留问题。

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