VBA怎么读取XML文件

VBA如何读取XML文件
VBA怎么读取XML文件？即：把原有的xml文件读到一个字符串里，然后替换掉里面的一些字符（用replace函数可以实现吗），然后在另存为一个新的XML文件。大虾们能给一个代码吗

[解决办法]
这是要克隆别人的网站?
[解决办法]
set xmlFile=createobject("MSXml2.DOMDocument")
xmlfile.async=false
xmlFile.load("filefullname") 'XML文件名，带上路径，比如c:\bbb.XML
xmlFile.setProperty "SelectionLanguage", "XPath"
set xmlDoct=xmlfile.documentelement
set MGroup=xmldoc.getelementsbytagname("GROUP") 'GROUP是某个元素



[解决办法]
用replace函数可以实现
[解决办法]
在模块的工具-引用中引用ADO
dim rst as new adodb.recordset
 rst.Open CurrentProject.Path & "\ds.xml", "Provider=MSPersist;", , , adCmdFile'读取XML到ADO的记录集
'通过对记录集的更新
rst("字段1")="....."
rst.update
'把记录集保存为XML格式
rst.Save CurrentProject.Path & "\ds1.xml", adPersistXML

'以上红色部分为XML存放和另存为的路径和名称
[解决办法]
添加Microsoft XML引用

VB code

 Dim dom As MSXML.DOMDocument Set dom = New MSXML.DOMDocument If dom.Load("D:\data.xml") = False Then     MsgBox "Load xml file fail!"     Set dom = Nothing End If
[解决办法]
其实可以考虑用OPEN打开文件替换掉