作者：绿色风
分类：
时间：2022-08-17
浏览：114
楼主
wise |
Q:如何用VBA将Excel中的数据导出为XML？
A：ALT+F11→插入模块→在模块中输入如下代码：
- Sub ExportToXML()
- Dim Filename As Variant
- Dim Rng As Range
- Dim r As Long, c As Integer
- ' 定义单元格区域
- Set Rng = Range("A1:L11")
- ' 取得一个文件名
- Filename = Application.GetSaveAsFilename(InitialFileName:="myrange.xml", fileFilter:="XML Files(*.xml), *.xml")
- If Filename = False Then Exit Sub
- Open Filename For Output As #1
- ' 写入xml界面
- Print #1, "<?xml version=""1.0"" encoding=""gb2312""?>"
- Print #1, "<EmployeeList xmlns:xsl=""http://www.w3.org/2001/XMLSchema-instance"">"
- ' 循环单元格
- For r = 2 To Rng.Rows.Count
- Print #1, "<Employee>"
- For c = 1 To Rng.Columns.Count
- Print #1, "<" & Rng.Cells(1, c) & ">";
- If IsDate(Rng.Cells(r, c)) Then
- Print #1, Format(Rng.Cells(r, c), "yyyy-mm-dd");
- Else
- Print #1, Rng.Cells(r, c).Text;
- End If
- Print #1, "</" & Rng.Cells(1, c) & ">"
- Next c
- Print #1, "</Employee>"
- Next r
- ' 关闭列表
- Print #1, "</EmployeeList>"
- ' 关闭文件
- Close #1
- ' 显示路径
- MsgBox Rng.Rows.Count - 1 & " 记录输入到文件 " & Filename
- End Sub
注意这里的设置:
- Print #1, "<?xml version=""1.0"" encoding=""gb2312""?>"
- Print #1, "<EmployeeList xmlns:xsl=""http://www.w3.org/2001/XMLSchema-instance"">"
 VBA+XML.rar
|
2楼
xmyjk |
小七XML的理解很不错。 |
3楼
心痛神伤 |
 |
4楼
jeker |
非常感谢 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一