Excel VBA中OLEObject.ComboBox多次加载后静态变量丢失问题

这是Excel VBA环境存在多年的底层已知缺陷：

• 当动态创建ActiveX类型OLEObject.ComboBox控件，且直接将VBA静态数组的引用绑定给控件的.List属性时，累计触发3次左右数据加载动作后，OLE控件宿主层的垃圾回收逻辑会误判当前VBA模块的静态存储区为无主内存，直接释放对应内存块
• 内存释放动作会清空该模块下所有模块级静态变量、用户自定义类型（UDT）的存储值，也就是观察到的DataArray数组数据丢失、p_typeRunClass自定义类型实例同步失效的现象
• 测试替换的DropDown属于Excel原生表单控件，运行在Excel自身的UI层，不依赖独立的ActiveX OLE宿主，数据绑定不直接关联VBA内存引用，不会触发上述误回收逻辑，因此可以稳定运行，但功能覆盖度无法匹配ActiveX ComboBox的能力。

按改造成本从低到高排序：

• 优先做引用切断：不要直接把静态数组赋值给ComboBox的.List属性，赋值前先对静态数组做一次内存拷贝，用拷贝后的临时数组完成赋值，切断控件和VBA静态存储区的直接引用关联，示例代码如下：

' 原风险写法：直接绑定静态数组引用，会触发内存误回收
' OLEComboBox.List = DataArray

' 修正写法：用临时数组做中转
Dim tempBindArr As Variant
tempBindArr = DataArray ' 强制生成数组副本，不传递静态数组的原始内存引用
OLEComboBox.List = tempBindArr
Erase tempBindArr ' 用完立刻释放临时数组内存

• 避免动态重复创建OLE ComboBox控件：提前在工作表设计阶段预插入需要用到的ComboBox控件，运行时只根据需求调整控件位置、可见性、绑定数据，不要反复通过OLEObjects.Add方法创建销毁控件，从根源上避免触发OLE宿主的内存重置逻辑
• 更换静态变量存储位置：如果必须动态创建销毁控件，不要把DataArray、p_typeRunClass这类需要持久化的数据存在VBA模块的静态存储区，转移存储到不会被VBA内存回收影响的区域：比如工作表的隐藏命名区域、专门做存储用的隐藏工作表单元格区域、ThisWorkbook对象的自定义属性中，使用时再读取即可
• 环境适配：如果当前使用的是32位Office，升级到64位Office可以大幅降低该缺陷的触发概率，但无法100%规避，仍建议搭配上述引用切断的写法使用。

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