Access VBA工具模块出现Run-time error '28'问题求助

嘿，遇到栈溢出这个坑确实头疼，尤其是之前编译正常、Win10更新后才出现的情况，结合你提到的单模块工具较多的怀疑，我给你梳理几个一步步排查的方向：

1. 先揪出最常见的元凶：无限递归调用 #

Run-time error '28'最常见的原因就是意外触发了无限递归——比如某个函数不小心调用了自己，或者函数A调用B，B又绕回去调用A，循环往复把栈撑爆了。

• 快速排查方法：在你怀疑的函数开头加一行调试输出：

  Debug.Print "进入函数：" & Application.VBE.ActiveCodePane.CodeModule.Name & "." & Application.VBE.ActiveCodePane.CodeModule.ProcOfLine(Application.VBE.ActiveCodePane.TopLine, 0)
  

  运行代码后看VBA编辑器的「立即窗口」，如果有重复出现的函数名，那就是递归点了。
• 也可以用VBA的调试工具：设置断点后，打开「调试」菜单→「调用栈」，直观看到当前的函数调用链，有没有循环调用的情况。

2. 检查模块内的内存占用与资源泄漏 #

如果模块里堆了太多全局变量、静态变量，或者处理大数据时没及时释放资源，也会慢慢占满栈空间：

• 把不必要的全局变量改成局部变量，非必须的话别用Static保留状态；
• 针对Excel导出功能：一定要显式释放Excel对象！比如用后期绑定创建的对象，用完必须写：

  Set xlApp = Nothing
  Set xlBook = Nothing
  Set xlSheet = Nothing
  

  不然这些对象会一直占着内存，积累多了就容易触发栈溢出；
• 检查日期处理函数里有没有频繁创建临时对象却没清理，比如反复创建Date相关的变体或对象。

3. 验证Windows 10更新的影响 #

Win10更新确实可能影响VBA的运行环境，比如修改了OLE自动化组件（和Excel交互依赖的）或者内存分配策略：

• 先试试修复Office：打开控制面板→程序和功能→找到你的Office版本→右键→更改→选择「快速修复」（不行就用「在线修复」），修复可能损坏的VBA运行时组件；
• 排查安全软件：更新后Windows Defender的内存保护、第三方杀毒软件的新规则，可能限制了VBA的栈空间，可以暂时关闭测试（记得之后恢复）；
• 看看有没有同步更新的其他软件，比如系统优化工具，也可能干扰VBA的运行。

4. 拆分模块，降低单模块复杂度 #

虽然单模块工具多本身不一定直接导致栈溢出，但模块过大容易隐藏交叉调用的问题，也不利于排查：

• 按功能拆分模块：把消息框相关函数放到modMessageBox，日期处理放到modDateUtils，Excel导出放到modExcelExport；
• 拆分后逐个测试功能，能快速定位到底是哪个模块的代码触发了问题。

5. 进阶操作：调整VBA栈大小 #

如果以上都排查完还是有问题，可以尝试调整VBA的栈空间设置：

• 打开VBA编辑器→工具→选项→通用→勾选「编译时删除调试信息」，减少运行时的内存占用；
• 谨慎修改注册表（先备份！）：找到HKEY_CURRENT_USER\Software\Microsoft\VBA\7.1\Common，新建DWORD值StackSize，设置为更大的数值（比如8192，单位是KB），重启Access后测试。

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