[求助]用VB/VBA写XML

我记得我以前回过一个这样的帖子，不过找不到了。需要用createProcessingInstruction

类似下面的，你自己试试。

Set Version = xDoc.createProcessingInstruction("xml", "version=" & Chr(34) & "1.0" & Chr(34))

xDoc.appendChild Version

我还是不会，不过谢谢你。

就放在前面就可以了。

Private Sub SaveValues()
Dim xml_document As DOMDocument
Dim values_node As IXMLDOMNode
Dim Version As Variant

' Create the XML document.
Set xml_document = New DOMDocument
Set Version = xml_document.createProcessingInstruction("xml", "version=" & Chr(34) & "1.0" & Chr(34))

xml_document.appendChild Version

' Create the Values section node.
Set values_node = xml_document.createElement("Test")

' Add a new line.
values_node.appendChild xml_document.createTextNode(vbCrLf)

' Add the Values section node to the document.
xml_document.appendChild values_node

' Create nodes for the values inside the
' Values section node.
'CreateNode 4, values_node, "FirstName", c
'CreateNode 4, values_node, "LastName", c
'CreateNode 4, values_node, "Street", c
'CreateNode 4, values_node, "City", c
'CreateNode 4, values_node, "State", c
'CreateNode 4, values_node, "Zip", c

' Save the XML document.
xml_document.Save m_AppPath & "Values.xml"
End Sub

这个应该跟编码有关系。我迟点试试写个例子看看。

谢谢大侠，问题解决。你是怎么学会的，我为什么翻了很多书就是没学会？

我试了一下写中文内容到XML文件里，我这里显示XML内容是没问题的，可以正确显示中文。

学习的途径很多，我主要是看帮助文件，还有最主要的是Google。我想大部分的解决方法都能Google到。

你看看我写的这个XML文件有没有中文显示的问题。我这里是可以用浏览器看到的。我在前面加了个Encoding，其实不加也可以看得到的。

加Encoding是在下面这句里。

Set Version = xml_document.createProcessingInstruction("xml", "version=" & Chr(34) & "1.0" & Chr(34) & " encoding=""gb2312""")

2rGs0V6B.rar (222 Bytes, 下载次数: 542)