vba - HTTP 请求在我运行程序时卡住，但在我介入时没有卡住

Question

程序从 excel 工作簿运行，获取值列表，构建查询字符串并将其传递给这段代码

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 次执行或许)。我必须告诉它特别等待 soething 吗？有任何想法吗？谢谢

Answer 1

XMLHTTP has a ReadyState property like IE :

所以这是如何使用它:

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