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

qopani 2013-02-14 01:03:23
用VBA能不能把excel列内容存为UTF-8编码格式的XML文件?
...全文
379 3 点赞 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
mnxm 2013-02-16
数据改成冲excel获得就可以了 还有不要忘记添加引用
工具 引用
  • 打赏
  • 举报
回复
mnxm 2013-02-16

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 2013-02-16
相关推荐
发帖
Office开发/ VBA
加入

5030

社区成员

其他开发语言 Office开发/ VBA
申请成为版主
帖子事件
创建了帖子
2013-02-14 01:03
社区公告
暂无公告