使用excel VBA将多个XML文件中的相似节点复制到一个XML中。

Sub CopySimilarNodesToXML()
    Dim mainXML As Object
    Dim xmlDoc As Object
    Dim xmlNode As Object
    Dim xmlFile As Variant
    Dim xmlPath As String
    
    ' 设置主XML文件路径
    xmlPath = "C:\path\to\main.xml"
    
    ' 创建主XML文档对象
    Set mainXML = CreateObject("MSXML2.DOMDocument")
    mainXML.async = False
    mainXML.Load xmlPath
    
    ' 循环遍历需要复制的XML文件
    For Each xmlFile In Array("C:\path\to\file1.xml", "C:\path\to\file2.xml", "C:\path\to\file3.xml")
        ' 创建需要复制的XML文档对象
        Set xmlDoc = CreateObject("MSXML2.DOMDocument")
        xmlDoc.async = False
        xmlDoc.Load xmlFile
        
        ' 获取需要复制的节点
        Set xmlNode = xmlDoc.SelectSingleNode("/root/similarNode")
        
        ' 复制节点到主XML中
        mainXML.DocumentElement.appendChild mainXML.ImportNode(xmlNode, True)
    Next xmlFile
    
    ' 保存主XML文件
    mainXML.Save xmlPath
End Sub