互联网浏览器XMLhttp而不是互联网controlls？

Question

我正在使用vba代码从网上获取信息。 一切都很好，但SOOOO需要多长时间:(

我记得重水复疑无路，还有另一种方式来获得信息，而不是创建一个IE浏览器对象。

我想我不需要的IE Con​​trolls。我我只是样之后，对方一个环节出片的。

如何被其他的“办法”的工作？它类似的XMLHTTP？ 是否有代码有区别吗？shoudnt是，还是？

感谢！

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") 

对于这一点，你需要将引用添加到两个“微软XML，V6。 0“和”Microsoft HTML Object Library“，那么你可以使用MSHTML库来根据需要解析代码。