在线求教vba 怎么生成xml文件_VBA

在线求教vba 如何生成xml文件
利用vba将excel中的数据保存生成xml文件。
涉及包括xml文件头（<?xml version="1.0" encoding="shift_jis"?>），元素及内容，属性及其内容。
刚才试了试IXMLDOMNode，但是属性没有添加明白。麻烦大家帮忙一下。
比如，想作成如下内容的xml
<?xml version="1.0" encoding="shift_jis"?>），
<Rule>
<RuleId>aaa</RuleId>
<RuleName id="001">bbb</RuleName >
</Rule>

------解决方案--------------------------------------------------------

探讨
应该能像java操作xml那样操作吧。就是使用DOM对象及方法进行操作。如果按照楼上方法处理的话，实现应该没有问题，但是代码量和结构上应该不如使用系统提供的那种通过对象及系统方法方便和简洁吧。

------解决方案--------------------------------------------------------
这个有现成的例子。http://www.codeproject.com/KB/vbscript/xls2xml.aspx去看看吧。不懂可以问我。
------解决方案--------------------------------------------------------
看看这个

VBScript code

Dim xmlDoc As New MSXML2.DOMDocumentDim coding As IXMLDOMNodeSet coding = xmlDoc.createProcessingInstruction("xml", "version='1.0' encoding='ISO-8859-1'")Set coding = xmlDoc.insertBefore(header, xmlDoc.childNodes.Item(0))xmlDoc.save("essai.xml")
------解决方案--------------------------------------------------------
过来 学学学习 呵呵！！！