用VBA能不能把excel列内容存为UTF-8编码格式的XML文件？

[qopani]

用VBA能不能把excel列内容存为UTF-8编码格式的XML文件？

[mnxm]

参考 http://hi.baidu.com/bianxuehui/item/285563978a07efbbcc80e5c6

[mnxm]

Sub test()
Dim xmlDoc, rootEl, child1, child2, p

'创建XML文档
'Set xmlDoc = CreateObject("Microsoft.XMLDOM")
Set xmlDoc = CreateObject("MSXML2.DOMDocument")

'创建根元素并将之加入文档
Set rootEl = xmlDoc.createElement("root")
xmlDoc.appendChild rootEl

'创建并加入子元素
Set child1 = xmlDoc.createElement("Today")
child1.Text = "A fine day"
Set child2 = xmlDoc.createElement("Tomorrow")
child2.Text = "A fine day"
rootEl.appendChild child1
rootEl.appendChild child2

'创建 XML processing instruction
'并把它加到根元素之前
Set p = xmlDoc.createProcessingInstruction("xml", "version='1.0' encoding='UTF-8'")
xmlDoc.InsertBefore p, xmlDoc.ChildNodes(0)


xmlDoc.Save ThisWorkbook.Path & "\HP_Scan_Iterm.xml"

End Sub

[mnxm]

数据改成冲excel获得就可以了 还有不要忘记添加引用
工具 引用