无法使用createDocumentFromUrl获取html元素

Question

如何使用“createDocumentFromUrl（）”从vba中直接从网页获取“HTMLDocument”？我尝试了很多工作以在其中找到任何文档，但未能发现。希望有人伸出援手来实现这一点。提前致谢。

这里是我到目前为止这肯定是不对的尝试：

Sub HtmlScraper() 
    Dim odoc As Object 
    Set odoc = New HTMLDocument 

    odoc.Open createDocumentFromUrl("http://www.stackoverflow.com", "null") 
    MsgBox odoc.body.innerHTML 
End Sub 

我想这样很好，但没有运气：

Sub htmlparser() 
    Dim odoc As HTMLDocument, hdoc As HTMLDocument 

    Set odoc = New HTMLDocument 
    Set hdoc = New HTMLDocument 

    Set hdoc = odoc.createDocumentFromUrl("http://www.stackoverflow.com", Null, False) 
    MsgBox hdoc.body.outerHTML 
End Sub 

Answer 1

这个工作对我来说，这可能成为该网站。

Sub test() 

Dim d As MSHTML.HTMLDocument 
Set d = New MSHTML.HTMLDocument 
Dim d2 As MSHTML.HTMLDocument 

set d2=d.createDocumentFromUrl("www.bbc.co.uk", "null") 

While d.readyState <> "complete" 
    DoEvents 
Wend 

End Sub