Performance internet explorer XMLhttp而不是internet控件？

我使用vba代码从网上获取信息。 一切都很顺利，但需要很长时间：(

我记忆犹新，有另一种方法来获取信息，而不是创建IE对象

我想我不需要IE控件。我只是从一张表中依次加载一个链接

另一种“方式”是如何工作的？它类似于XMLHttp？ 代码有区别吗？应该有区别，还是有区别

谢谢！

这是我使用的：

Function getPage(URLStr As String) As MSHTML.HTMLDocument
    Dim oHttpRequest As MSXML2.XMLHTTP60
    Set oHttpRequest = New MSXML2.XMLHTTP60
    With oHttpRequest
        .Open "GET", URLStr, False
        .send
    End With
    Dim oHTMLDoc As MSHTML.HTMLDocument
    Set oHTMLDoc = New MSHTML.HTMLDocument
    oHTMLDoc.body.innerHTML = oHttpRequest.responseText
    Set getPage = oHTMLDoc
End Function

要调用该函数，请使用以下命令：

Dim oHTMLDoc as MSHTML.HTMLDocument
Set oHTMLDoc = getPage("http://www.example.com")

为此，您需要添加对“Microsoft XML，v6.0”和“Microsoft HTML对象库”的引用，然后您可以根据需要使用MSHTML库解析代码。

这就是我使用的：

Function getPage(URLStr As String) As MSHTML.HTMLDocument
    Dim oHttpRequest As MSXML2.XMLHTTP60
    Set oHttpRequest = New MSXML2.XMLHTTP60
    With oHttpRequest
        .Open "GET", URLStr, False
        .send
    End With
    Dim oHTMLDoc As MSHTML.HTMLDocument
    Set oHTMLDoc = New MSHTML.HTMLDocument
    oHTMLDoc.body.innerHTML = oHttpRequest.responseText
    Set getPage = oHTMLDoc
End Function

要调用该函数，请使用以下命令：

Dim oHTMLDoc as MSHTML.HTMLDocument
Set oHTMLDoc = getPage("http://www.example.com")

---

为此，您需要添加对“Microsoft XML，v6.0”和“Microsoft HTML对象库”的引用，然后您可以根据需要使用MSHTML库解析代码。

+1我也是这样做的。但是，如果您做了大量链接，请不要在函数中创建http对象-这是不必要的开销。创建它，多次使用，然后销毁它。+1我也是这样做的。但是，如果您做了大量链接，请不要在函数中创建http对象不要在函数中创建http对象-这是不必要的开销。创建它，多次使用它，然后销毁它。