我之前维护过类似的Excel定时同步脚本，也踩过内存飙升的坑，结合你的场景，给你几个亲测有效的修复方向：

1. 强制释放所有对象引用（最关键） #

VBA的垃圾回收机制很被动，尤其是对Workbook、Worksheet、Range这类COM对象，必须手动释放才能彻底回收内存：

• 所有显式声明的对象（比如Dim wb As Workbook），在使用完后一定要执行Set wb = Nothing，哪怕是在错误处理分支里也要补上
• 避免使用ActiveWorkbook、ActiveSheet这类隐式引用，改成显式的对象声明，用完及时关闭+释放
• 示例代码：

Dim sourceWb As Workbook, targetWb As Workbook
On Error GoTo Cleanup
Set sourceWb = Workbooks.Open("C:\source.xlsx")
Set targetWb = Workbooks.Open("C:\target.xlsx")
' 你的数据提取、处理逻辑...

Cleanup:
    ' 先关闭文件再释放对象
    If Not targetWb Is Nothing Then
        targetWb.Close SaveChanges:=True
        Set targetWb = Nothing
    End If
    If Not sourceWb Is Nothing Then
        sourceWb.Close SaveChanges:=False
        Set sourceWb = Nothing
    End If

2. 清理Application.OnTime的定时任务堆积 #

每次调用Application.OnTime前，一定要取消上一次的定时任务，否则会重复注册多个回调，导致内存里堆积大量无效引用：

• 先声明一个模块级变量存储下次执行时间：Dim nextRunTime As Date
• 在定时任务开头先取消之前的任务（容错处理避免报错）：

Sub UpdateData()
    ' 先取消上一次的定时任务
    On Error Resume Next
    Application.OnTime EarliestTime:=nextRunTime, Procedure:="UpdateData", Schedule:=False
    On Error GoTo 0
    
    ' 你的数据处理逻辑...
    
    ' 设置下一次执行时间（比如每10分钟一次）
    nextRunTime = Now + TimeValue("00:10:00")
    Application.OnTime EarliestTime:=nextRunTime, Procedure:="UpdateData", Schedule:=True
End Sub

3. 优化Excel运行环境，减少内存开销 #

• 关闭自动计算和屏幕更新：在脚本开头加入Application.Calculation = xlCalculationManual和Application.ScreenUpdating = False，脚本结束后恢复为xlCalculationAutomatic和True
• 彻底抛弃Select/Activate方法，直接操作对象，比如用sourceWb.Sheets("Data").Range("A1:B10").Copy targetWb.Sheets("Result").Range("A1")代替先选中再复制的操作
• 处理完数据后手动触发垃圾回收：可以调用VBA.GCCollect（需要在模块顶部声明Declare PtrSafe Sub GCCollect Lib "kernel32" ()）

4. 排查内核分页池异常增长的问题 #

内核分页池异常通常和未释放的系统资源有关：

• 确保所有打开的资源都正确关闭，比如用到ADO连接的话，Connection和Recordset用完要先Close再Set = Nothing
• 减少频繁的文件IO操作，比如把源数据一次性读取到内存数组里处理：Dim dataArr As Variant: dataArr = sourceWb.Sheets("Data").UsedRange.Value，处理完再批量写回目标文件

5. 极端情况的应急方案 #

如果以上方法仍无法解决，可以考虑：

• 每运行固定次数后自动重启Excel进程：记录运行次数，达到阈值时用Shell打开新的Excel实例执行脚本，然后关闭当前进程
• 改用PowerQuery处理核心数据逻辑，再用VBA触发刷新——PowerQuery的内存管理机制比原生VBA更高效

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