VBA将Excel导出为XML

以下代码的功能，是配合select，将Excel导出为XML文件。

Const stSQL As String = "SELECT * FROM [Report]"

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引用。

赞 (0)

相关推荐

  • excel文件怎样导出为xml文件 excel文件怎样导出

    有时需要把excel文件导出为xml文件,对于程序员来说这是一个很普通的操作过程,对于第一次进行此操作的人来说不是一件容易的事,下面分享下不用编程生成XML配置文件的方法. 操作方法 01 如图,要把 ...

  • Unity3D 场景导出成 XML 并解析还原场景

    为了尽可能加快从网络加载场景，我们通常可以把场景先导出成 XML，把优先级高的资源优先加载并显示（地形等），把可以进入场景之后再加载的对象放到最后（比如场景里面的怪物等），本篇一部分代码引用自：htt ...

  • 如何利用VBA将excel多个工作表数据快速合并到一个工作表上

    利用VBA将数据区域不定的多个工作表数据快速合并到一个工作表方法.有需要的朋友可以跟着教程一起来学习! 方法/步骤 分别有工作表1.2.3数据区域如下图所示: 按ALT+F11打开VBE编辑器,在工程 ...

  • Excel导出图片时如何以图片左侧单元格内容为文件名

    Excel导出图片时如何以图片左侧单元格内容为文件名

    Excel是现在十分常用的办公软件之一,有些用户想知道Excel导出图片时如何以图片左侧单元格内容为文件名,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步根据下图所示,打开电脑中 ...

  • excel导出PDF文件如何设置

    由于工作需要,excel导出PDF文件十分常用. 操作方法 01 新建一个excel表格并打开 02 输入需要的表格内容 03 设置打印区域 04 使用Ctrl+P,进入打印设置页面 05 在基本设置 ...

  • 教你用Excel导出vcard格式vcf后缀的通讯录文件

    做业务的朋友,经常会用电脑来记录客户资料,记录客户电话.姓名.如果把这些信息一个个的复制粘贴到手机通讯录里,也可以说是一种体力活了.最重要的是效率慢. 那如何把这些客户的电话一键快速导入到手机中? 下 ...

  • vba操作Excel经典的通用的代码之一

    MyColumn=Target.Column　获取活动单元格所在的列号 MyRow=Target.Row　获取活动单元格所在的行号 工作表名.UsedRange.Rows.Count　指定工作表已使用 ...

  • vba操作Excel之MsgBox函数参数详解

    一、函数语法 函数名称：MsgBox 函数功能：在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。 函数语法： MsgBox(prompt[, buttons] ...

  • Excel VBA教程 Excel多个表格汇总的方法教程

    如果你每天的工作都是把分表格汇总到总表中,那你肯定需要下面我要教给你的这个:用VBA批量把每天的各种表格汇总成一张总表,再也不用每张表格的复制粘贴了.有没有什么办法可以快速将这些分表数据弄到总表中去. ...