VBA解析来自IE文档的HTML页面中包含的XML

Question

我有一个 VBA 程序，它使用 IE 自动化以经典方式查询网站： 常量 URL = "xxxx" Dim ieApp 作为 InternetExplorer 将 oHTMLDoc 调暗为 HTMLDocument

ieApp.Navigate URL
Do While ieApp.Busy: DoEvents: Loop
Do Until ieApp.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop

Set oHTMLDoc = ieApp.Document
.....etc

由于某些原因，我必须使用 InternetExplorer 对象 - 我不能使用 MSXML2 库来查询站点。稍后在程序中，查询的结果是纯 XML - 使用 HTML 例程进行解析很痛苦。

所以我的问题很简单：如何将 HTMLDocument 转换为 MSXML2.DOMDocument ？

Dim oXMLDoc As MSXML2.DOMDocument
Set oXMLDoc = oHTMLDoc  'Fails

谢谢。

Answer 1

感谢jdweng，我得到了答案：

Dim ieApp As InternetExplorer
Dim oHTMLDoc As HTMLDocument
Dim sXML as String 

ieApp.Navigate *URL*
Do While ieApp.Busy: DoEvents: Loop
Do Until ieApp.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop

Set oHTMLDoc = ieApp.Document
Set oXML = New MSXML2.DOMDocument60

sXML = oHTMLDoc.DocumentElement.outerHTML
If Not oXML.LoadXML(sXML) Then _
    Err.Raise oXML.parseError.ErrorCode, , oXML.parseError.reason

我可以在我的 oXML 文档中享受 XML！再次感谢。

Answer 2

试试这个

'add reference Microsoft XML, v6.0
Public Sub DownloadFile()
    Dim objWHTTP As Object
    Dim strPath As String
    Dim arrData() As Byte
    Dim lngFreeFile As Long



    On Error Resume Next
        Set objWHTTP = CreateObject("WinHTTP.WinHTTPrequest.5")
        If Err.Number <> 0 Then
            Set objWHTTP = CreateObject("WinHTTP.WinHTTPrequest.5.1")
        End If
    On Error GoTo 0

    URL = "Enter URL Here"

    objWHTTP.Open "GET", URL, False
    objWHTTP.send
    arrData = objWHTTP.responseBody
    strData = StrConv(arrData, vbUnicode)

    Dim fedbook As New MSXML2.DOMDocument60

    fedbook.LoadXML strData
​