借助AppDomain存储CoTaskMemAlloc指针修复VBA内存泄漏的可行性问询

问题背景 #

在VBA中使用依赖CoTaskMemAlloc的代码创建COM对象，原本是为了避免VBA清理变量时意外释放内存，但发现执行End语句时，那些依赖CoTaskMemFree释放内存的轻量COM对象，其IUnknown::Release方法不会被执行，进而引发内存泄漏。

现有方案合理性分析 #

你计划将分配的内存指针存储在AppDomain中，下次运行VBA时清理遗留指针的方案是可行的，但需要注意几点：

• 只要Excel.exe进程处于运行状态，AppDomain（VBA运行时的持久存储区域）和CoTaskMemAlloc分配的内存都会保持活跃，存储的指针不会失效。
• 需维护一个有效的指针集合，标记内存是否已被释放，避免重复调用CoTaskMemFree导致程序崩溃。
• 若存在多模块同时操作内存指针的场景，需保证集合访问的线程安全性（VBA单线程环境下可简化处理）。

你的代码示例：

Dim pMemory1 As LongPtr = CoTaskAllocator.MemAlloc(18)

'... Stop Button

Dim pMemory2 As LongPtr = CoTaskAllocator.MemAlloc(34) 'will free pMemory1 if still around

更简便的解决方法 #

1. 替换End语句：End会强制终止VBA执行，跳过所有对象销毁与清理逻辑。改用标志位控制代码自然执行到Sub/Function结尾，让IUnknown::Release正常触发，内存自动释放。
2. 主动手动释放：在执行End前，显式调用轻量COM对象的Release方法，或直接调用CoTaskMemFree释放已分配的内存。
3. 类模块封装管理：将内存分配与释放逻辑封装到类模块的Class_Initialize和Class_Terminate事件中，VBA会在对象销毁时自动执行Class_Terminate（End语句除外），简化内存管理。

CoTaskMemAlloc语义确认 #

你的理解完全正确：CoTaskMemAlloc从进程堆中分配内存，只要Excel.exe进程未退出，这块内存就会持续存在，不会被系统自动回收，必须通过CoTaskMemFree手动释放。AppDomain作为Excel进程内的持久存储区域，只要进程存活，其中存储的指针就会保持有效。

内存泄漏调试方法 #

• 任务管理器/Process Explorer：观察Excel进程内存占用，多次执行泄漏代码后看内存是否持续上涨；用Process Explorer可跟踪堆分配与释放的调用次数差值。
• VBA内部日志：在内存分配、释放时记录日志到工作表或文件，统计每次运行后未释放的指针数量，定位泄漏点。
• 专业工具：使用Visual Studio内存诊断工具Attach到Excel进程，跟踪堆内存的分配轨迹，直接定位未释放的内存块。

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