打开千余工作簿后Excel出现自动化错误的技术求助

• 彻底释放工作簿及关联对象
  别只做wb = Nothing，要先清理工作簿里的工作表、命名区域等子对象，再关闭释放：

  Dim wb As Workbook
  Dim ws As Worksheet
  Dim nm As Name
  
  Set wb = Workbooks.Open("目标文件路径")
  ' 这里写你的扫描提取逻辑
  
  ' 先释放所有子对象
  For Each ws In wb.Worksheets
      Set ws = Nothing
  Next ws
  For Each nm In wb.Names
      Set nm = Nothing
  Next nm
  
  ' 明确关闭不保存
  wb.Close SaveChanges:=False
  ' 释放工作簿对象
  Set wb = Nothing
  

• 强制清理内存
  VBA没自带垃圾回收，调用Windows API触发内存整理，每处理100-200份文件跑一次：

  ' 模块顶部声明API
  Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
  Private Declare PtrSafe Sub SetProcessWorkingSetSize Lib "kernel32" (ByVal hProcess As LongPtr, ByVal dwMinimumWorkingSetSize As LongPtr, ByVal dwMaximumWorkingSetSize As LongPtr)
  Private Declare PtrSafe Function GetCurrentProcess Lib "kernel32" () As LongPtr
  
  ' 内存清理子程序
  Sub CleanMemory()
      Dim hProc As LongPtr
      hProc = GetCurrentProcess()
      SetProcessWorkingSetSize hProc, -1, -1
      Sleep 500 ' 给系统点时间完成整理
  End Sub
  

• 杜绝隐式对象引用
  别用ActiveWorkbook、ActiveSheet这种模糊引用，全部用显式声明的变量；模块里尽量别放全局变量存工作簿/工作表，用局部变量更安全。

• 优化工作簿打开参数
  打开时用只读模式，禁用不必要的功能，减少资源占用：

  Set wb = Workbooks.Open( _
      Filename:=filePath, _
      ReadOnly:=True, _
      IgnoreReadOnlyRecommended:=True, _
      AddToMRU:=False, _
      UpdateLinks:=xlUpdateLinksNever _
  )
  

• 分批次处理+自动重启Excel
  如果前面的方法还留残留，把任务拆成小批次（比如500份一批），处理完一批就关闭当前Excel进程，再启动新进程继续。可以写个简单的控制脚本或者辅助VBA程序自动做这件事，比手动重启效率高多了。

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