通过VBA从网页表格提取数据至Excel的内存优化咨询

我完全懂你说的这个情况——用IE自动化的时候，如果不手动清理资源，那些后台运行的IE进程和DOM对象会一直占着内存，次数多了电脑自然就慢下来了。下面是几个必做的优化步骤，帮你彻底释放RAM：

1. 显式关闭IE并释放对象 #

你的代码里只创建了IE对象，但没彻底关闭它。哪怕设置了Visible = False，IE进程还是会在后台挂着。一定要在代码结束前调用Quit方法，然后把对象设为Nothing：

' 处理完数据后关闭IE
IE.Quit
Set IE = Nothing

2. 释放DOM文档对象 #

HTMLDocument对象也会占用内存，用完后同样要手动释放：

Set doc = Nothing

3. 强制触发VBA垃圾回收（可选但推荐） #

VBA的垃圾回收机制不是实时的，有时候即使把对象设为Nothing，内存也不会立刻释放。可以通过调用Windows API来强制触发回收，需要在代码开头添加API声明：

' 放在模块的最顶部（所有Sub/Function之外）
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

然后在代码最后添加：

' 强制释放内存
Sleep 100 ' 给系统一点清理时间
SetProcessWorkingSetSize GetCurrentProcess(), -1, -1

修改后的完整代码 #

把这些步骤整合到你的代码里，最终版本是这样的：

' 模块顶部的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 ExtractTableData()
    Dim IE As New InternetExplorer
    Dim doc As HTMLDocument
    Dim sDD As String
    
    IE.Visible = False
    IE.navigate "https://www.theconstructionindex.co.uk" & Range("URL_code").Value
    
    Do
        DoEvents
    Loop Until IE.readyState = READYSTATE_COMPLETE
    
    Set doc = IE.document
    
    ' 提取数据的代码保持不变
    sDD = doc.getElementsByTagName("TD")(1).innerText
    Range("b2").Value = sDD
    sDD = doc.getElementsByTagName("TD")(3).innerText
    Range("b3").Value = sDD
    sDD = doc.getElementsByTagName("TD")(5).innerText
    Range("b4").Value = sDD
    sDD = doc.getElementsByTagName("TD")(7).innerText
    Range("b5").Value = sDD
    sDD = doc.getElementsByTagName("TD")(9).innerText
    Range("b6").Value = sDD
    sDD = doc.getElementsByTagName("TD")(11).innerText
    Range("b7").Value = sDD
    
    ' 清理资源
    Set doc = Nothing
    IE.Quit
    Set IE = Nothing
    
    ' 强制回收内存（可选）
    Sleep 100
    SetProcessWorkingSetSize GetCurrentProcess(), -1, -1
End Sub

另外还有个小建议：如果你的Excel版本支持（Office 365/2019+），可以考虑用MSXML2.XMLHTTP代替IE，它是无界面的HTTP请求，内存占用比IE小很多，效率也更高。不过如果必须用IE（比如网站需要JS渲染），上面的方法就足够解决内存问题了。

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