如何在VBA中读取带命名空间的复杂XML？SelectNodes()方法失效问题排查与解决

我明白你的问题了——你的XML文档带有默认命名空间，这就是为什么你用普通的XPath查询找不到节点的核心原因。DOM解析器在处理带命名空间的XML时，必须先注册对应的命名空间前缀，才能正确定位到目标节点，否则所有的节点查询都会返回空结果。

问题根源 #

你的XML根节点P48Cierre定义了默认命名空间：

<P48Cierre xmlns="http://sujetos.esios.ree.es/schemas/2007/03/07/P48Cierre-esios-MP/">

所有子节点（比如SeriesTemporales、Intervalo等）都属于这个命名空间下，但你的初始代码没有处理命名空间，导致SelectNodes无法匹配到任何节点。

完整解决方案（生成你需要的Excel表格） #

下面是完善后的代码，不仅能正确查询节点，还能直接把数据导出到Excel表格，完全符合你需要的输出格式：

Sub XMLToExcel()
    Dim oXml As New MSXML2.DOMDocument60
    Dim seriesNodes As IXMLDOMNodeList
    Dim seriesNode As IXMLDOMNode
    Dim intervalNode As IXMLDOMNode
    Dim upeValue As String
    Dim posValue As String
    Dim ctdValue As String
    Dim rowNum As Integer
    
    ' 注册XML的默认命名空间，前缀r可自定义
    oXml.SetProperty "SelectionNamespaces", "xmlns:r='http://sujetos.esios.ree.es/schemas/2007/03/07/P48Cierre-esios-MP/'"
    oXml.async = False ' 同步加载XML，确保加载完成再处理
    oXml.validateOnParse = False ' 关闭验证（若XML无Schema可省略）
    
    ' 加载XML文件，请替换为你的实际文件路径
    If Not oXml.Load("C:\archive.xml") Then
        MsgBox "加载XML失败: " & oXml.parseError.reason
        Exit Sub
    End If
    
    ' 获取所有SeriesTemporales节点（需带命名空间前缀r）
    Set seriesNodes = oXml.SelectNodes("/r:P48Cierre/r:SeriesTemporales")
    
    ' 初始化Excel表头和行号
    rowNum = 2
    Cells(1, 1).Value = "UPEntrada"
    Cells(1, 2).Value = "Pos"
    Cells(1, 3).Value = "Ctd"
    
    ' 遍历每个SeriesTemporales节点
    For Each seriesNode In seriesNodes
        ' 获取UPEntrada的v属性值
        upeValue = seriesNode.SelectSingleNode("r:UPEntrada").Attributes("v").Text
        
        ' 遍历当前SeriesTemporales下的所有Intervalo节点
        For Each intervalNode In seriesNode.SelectNodes("r:Periodo/r:Intervalo")
            ' 获取Pos和Ctd的v属性值
            posValue = intervalNode.SelectSingleNode("r:Pos").Attributes("v").Text
            ctdValue = intervalNode.SelectSingleNode("r:Ctd").Attributes("v").Text
            
            ' 将数据写入Excel对应单元格
            Cells(rowNum, 1).Value = upeValue
            Cells(rowNum, 2).Value = posValue
            Cells(rowNum, 3).Value = ctdValue
            
            rowNum = rowNum + 1
        Next intervalNode
    Next seriesNode
    
    MsgBox "数据已成功导入Excel！"
End Sub

关键要点说明 #

1. 命名空间注册：通过SetProperty "SelectionNamespaces"为XML的默认命名空间绑定一个前缀（这里用了r），之后所有XPath查询必须带上这个前缀才能匹配到节点。
2. 同步加载：设置oXml.async = False确保XML完全加载后再执行后续查询，避免因加载未完成导致的节点为空问题。
3. 节点查询：所有节点路径（比如r:SeriesTemporales、r:Periodo/r:Intervalo）都必须包含命名空间前缀，才能正确定位到目标节点。
4. 属性获取：通过Attributes("v").Text直接获取节点的v属性值，这比遍历属性列表更简洁。

注意事项 #

• 在VBA编辑器中，确保已经引用了Microsoft XML, v6.0（路径：工具 → 引用 → 勾选该选项）。
• 替换代码中的XML文件路径为你实际的文件路径。
• 如果XML文件有格式错误，加载时会弹出提示，你可以根据提示修正XML或调整validateOnParse的设置。

内容的提问来源于stack exchange，提问作者H_pwr