无法使用 createDocumentFromUrl 获取 html 元素

Question

如何使用“createDocumentFromUrl()”直接在 vba 中从网页中获取“HTMLDocument”？我尝试了很多以在 SO 中找到有关它的任何文档，但未能找到。希望有人伸出援助之手来实现这一目标。提前致谢。

这是我迄今为止尝试过的绝对不正确的方法：

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