internet explorer XMLhttp而不是internet控件？

Question

我正在使用vba代码从web获取信息。一切都很好，但是花了很长时间：

我清楚地记得，除了创建IE对象之外，还有另一种获取信息的方法。

我想我不需要IE控件。我只是从一个工作表中一个接一个地加载链接。

另一种“方式”是如何工作的？它有点像XMLHttp？代码有区别吗？不应该是，或者？

谢谢!

Answer 1

这是我使用的：

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 Object Library”的引用，然后可以根据需要使用MSHTML库解析代码。