为什么 XPath 语法在 DomDocument60 中不起作用？

编程问答 2022-05-22

问题描述

我正在尝试解析每天从欧洲央行 URL 下载的一组外汇报价。它似乎使用 DOMDocument 工作，但当我切换到 DOMDocument60 时不起作用。我在下面的代码中包含了这两种方法。我相信我的 XPath 语法是正确的——用“时间”元素识别所有 Cube 节点，以便能够识别时间序列中每一天的报价。

谁能告诉我我做错了什么？

Sub XMLDom60vs30()
    Dim oXMLHTTP As Object
    Dim sURL As String
    Dim XmlMapResponse As String
    Dim strXML As String
    
    Dim xDoc  As Object
    Dim xDoc60  As MSXML2.DOMDocument60
    
    Dim xNodeList As Object
    Dim xNodeList60 As MSXML2.IXMLDOMNodeList
    
    ' This URL access daily FX history from an ECB website.
    sURL = "https://www.ecb.europa.eu/stats/eurofxref/eurofxref-hist.xml?affd3fe4c0ac916ce2e9d1ccfea2327c"
    Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    Set xDoc = CreateObject("MSXML2.DOMDocument")
    Set xDoc60 = New MSXML2.DOMDocument60
    
    oXMLHTTP.Open "GET",sURL,False
    oXMLHTTP.send
    XmlMapResponse = oXMLHTTP.responseText
    strXML = XmlMapResponse
    
    With xDoc
        .async = False
        .validateOnParse = False
        .LoadXML (strXML)
    End With
    
    With xDoc60
        .async = False
        .validateOnParse = False
        .LoadXML (strXML)
    End With

    
    Set xNodeList = xDoc.SelectNodes("//Cube[@time]")
    Set xNodeList60 = xDoc60.SelectNodes("//Cube[@time]")
    Debug.Print "List Length: xNodes = " & xNodeList.Length & ",XNodes60 = " & xNodeList60.Length & ",finished at " & Format(Now(),"hh:mm:ss")
    
End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excelexcelmsxml2vbaxmlxmlxmlxmlxmlxmlxmlxpathxpathxpathxpath