VBA正在消耗内存。。无法清除资源
我正在使用xmlHTTP编写一个VBA代码,我遇到了一个问题,我无法找出它的原因 问题是: 当循环运行时,它不断消耗越来越多的内存,因此我试图找到导致此问题的部分,我提出了以下部分:VBA正在消耗内存。。无法清除资源,vba,excel,xmlhttprequest,Vba,Excel,Xmlhttprequest,我正在使用xmlHTTP编写一个VBA代码,我遇到了一个问题,我无法找出它的原因 问题是: 当循环运行时,它不断消耗越来越多的内存,因此我试图找到导致此问题的部分,我提出了以下部分: For i = 1 To 100 url = "https://www.google.co.in/search?q=" & "hello" & "&rnd=" & WorksheetFunction.RandBetween(1, 10000) Set XMLHTTP
For i = 1 To 100
url = "https://www.google.co.in/search?q=" & "hello" & "&rnd=" & WorksheetFunction.RandBetween(1, 10000)
Set XMLHTTP = CreateObject("MSXML2.serverXMLHTTP")
XMLHTTP.Open "GET", url, False
XMLHTTP.setRequestHeader "Content-Type", "text/xml"
XMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:25.0) Gecko/20100101 Firefox/25.0"
XMLHTTP.send
Set html = CreateObject("htmlfile")
html.body.innerHTML = XMLHTTP.responsetext
DoEvents
Next i
我尝试了我能想到的一切(尝试将对象设置为nothing(在循环内部和外部),并尝试从“for循环”内部保存excel文件),但我无法解决问题。
我尝试了以下3行,但它们没有解决任何问题:
XMLHTTP.abort
Set XMLHTTP = Nothing
Set html = Nothing
注意#1:即使这11行代码是唯一要执行的代码,问题也会出现强>
注意#2:即使在过程完成后,内存也不会被释放强>
附加程序运行时内存使用情况的屏幕截图:
请告知。。谢谢本周早些时候,Benoit提到的上述问题的解决方案开始向Office 2016客户推出。如果您还没有更新,请转到文件帐户更新选项立即更新 办公室团队的安妮丝