vb中xml文件导入导出,急用，谢谢！

Question

高手帮忙vb中xml文件导入导出,急用，谢谢！

Answer 1

    Dim objXml As Object
    Set objXml = CreateObject("MSXML2.DOMDocument")
    objXml.Load '导入XML
    objXml.Save '导出XML
    Set objXml = Nothing

Answer 2

lyserver,非常感谢你的回复。能把详细的语句发一下吗？

Answer 3

代码已经很详细了啊，你找一个XML文件放到D盘下，重命名为temp.xml，然后运行下面代码就明白了：Sub main()
    Dim objNod As MSXML2.IXMLDOMNode
    Dim objXmlDoc As MSXML2.DOMDocument ' Object
    
    Set objXmlDoc = CreateObject("MSXML2.DOMDocument")
    objXmlDoc.Load "d:\temp.xml" '导入XML
    '遍历XML节点
    For Each objNod In objXmlDoc.childNodes
        Debug.Print objNod.Text, objNod.nodeName
    Next
    objXmlDoc.Save "d:\temp1.xml" '导出XML
    Set objXmlDoc = Nothing
End Sub