导出excel变成xml文件（VBA将Excel导出为XML）
本文目录
VBA将Excel导出为XML
以下代码的功能，是配合select，将Excel导出为XML文件。
Const stSQL As String = "SELECT * FROM "
Dim stCon As String
stCon = "Provider=Microsoft.Jet.OLEDB.4.0;" _
"Data Source=" ThisWorkbook.FullName ";" _
"Extended Properties=""Excel 8.0;HDR=Yes"";"
Dim rst As New ADODB.Recordset
Dim str As New ADODB.Stream
With rst
.CursorLocation = adUseClient
.Open stSQL, stCon, adOpenStatic, adLockReadOnly, adCmdText
.Save str, adPersistXML
.Close
With str
.SaveToFile "C:dzwebs.xml", adSaveCreateOverWrite
.Close
End With
End With
Set str = Nothing
Set rst = Nothing
注意，要使用如上的代码，需要添加MS ADO Library引用。
如何把EXCEL的数据导出成XML
1.单击“数据”选项卡下的“获取外部数据”工作组中的“自其他来源”下的“来自XML数据导入”，如下图所示。2.如下图所示，在弹出的“获取数据源”的对话框中找到要导入的XML文件，后单击“打开”按钮。3.单击“打开”按钮后将弹出如下图所示的提示，直接单击“确定”按钮。在弹出的“导入数据”对话框中可以选择是放置在“现有工作表”还是“新的工作表”，如下图所示。4.单击“确定”以后将在工作表中导入XML文件，以规范的表的形式存放，如下图所示。5.除了以上的导入办法以外还可以单击“开发工具”选项卡下的“XML”工作组中的“导入”，以后的步骤同步骤2到步骤4，如下图所示。
更多文章：
2025年11月7日 13:45
2026年2月20日 18:00
如何用纯CSS实现接扎啤的特效（附源码）？如何使用纯CSS实现从按钮两侧滑入装饰元素的悬停特效（附源码）
2026年7月16日 02:15
adodb连接oracle数据库的server属性（如何用adodc和datagird连接数据库）
2025年11月10日 18:00
2026年7月14日 15:45
2026年4月7日 08:30
2025年6月12日 10:30
2026年7月13日 09:00
2026年1月18日 00:00
hadoop集群搭建公平（VMware搭建完全分布式Hadoop集群）
2025年10月3日 16:15
2026年3月10日 03:45
2026年7月22日 19:45
设计公司网站源码（别人给我们公司建的网站，我们没有源代码能自己设计吗）
2026年8月9日 01:15
汇编语言延时程序怎么写（用8086汇编语言，编写延时子程序）
2025年6月20日 23:30
ai基础教程入门视频（哪里有一些比较全面的ai教程，视频的，一定要全面）
2026年9月18日 22:30
网站在线客服系统怎么申请（企业自己做网站，怎么添加’在线客服系统呢）
2026年9月6日 22:15
2025年7月18日 14:00
equivalent英文（请问:等于，不等于，大于，小于，大于等于，小于等于的英文English是什么）
2025年10月21日 16:15
myeclipse注册码在哪里输入（myeclipse10，需要注册码怎么办）
2025年9月20日 12:30
2025年7月5日 17:30
