首先引用 MSXML对象然后Dim tempdoc As MSXML2.DOMDocument Dim root As MSXML2.IXMLDOMElement Dim head As IXMLDOMProcessingInstruction Set tempdoc = New MSXML2.DOMDocument Set head = tempdoc.createProcessingInstruction("xml", "version=""1.0"" encoding=""gb2312""") tempdoc.insertBefore head, tempdoc.childNodes(0) Set root = tempdoc.createElement("data") root.setAttribute "version", "1.0" root.Text = vbCrLf tempdoc.appendChild rootDebug.Print tempdoc.xml
复杂一点的引用MSXML对象用dom处理XML
Dim root As MSXML2.IXMLDOMElement
Dim head As IXMLDOMProcessingInstruction
Set tempdoc = New MSXML2.DOMDocument
Set head = tempdoc.createProcessingInstruction("xml", "version=""1.0"" encoding=""gb2312""")
tempdoc.insertBefore head, tempdoc.childNodes(0)
Set root = tempdoc.createElement("data")
root.setAttribute "version", "1.0"
root.Text = vbCrLf
tempdoc.appendChild rootDebug.Print tempdoc.xml
但是如果你tempdoc.save "c:\text.xml"文件中就会有encoding一直搞不懂怎么回事,我平时第一行都是直接拼字符串进去的
用VB生成XML文件:http://www.39dh.com/html/webdesign/xml/20070623/7516.html