当我运行程序时,HTTP请求会冻结,但是当我介入时,HTTP请求不会冻结

该程序从Excel工作簿运行,获取值的列表,build立一个查询string,并将其传递给这一块代码

Set xmlHttp = CreateObject("MSXML2.XMLHTTP.6.0") xmlHttp.Open "GET", connectionstring, False xmlHttp.setRequestHeader "Content-Type", "text/xml" xmlHttp.send Dim html As Object Set html = CreateObject("htmlfile") html.body.innerHTML = xmlHttp.ResponseText 

这是一个循环的一部分,所以它被执行很多次。 如果我进入代码并逐行执行,没有问题,但是当我运行它时,它冻结在xmlHttp.send行上,不是在第一个循环,而是在循环中间的某处(第10次执行也许)。 我是否必须告诉它等待特别提醒? 有任何想法吗? 谢谢

XMLHTTP有一个像IE一样的ReadyState属性 :

所以这是如何使用它:

 xmlHttp.send Do While xmlHttp.readyState <> 4 DoEvents Loop