VBA将Excel导出为XML
发布时间：2022-03-10 11:23:50
标签：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
投稿猜你喜欢
我们在word文档中插入文本框，形状，图片等内容后，可以根据自己的实际需要设置三维旋转。比如我们可以为文本框设置平行旋转，角度旋转，倾斜旋转- 如何去除Onedrive绿色同步图标？如下图所示，在电脑上使用Onedrive同步了文件之后，桌面上的文件就出现绿色的对勾，针对这样的问题，
- Word 2010怎么更改汉字拼音呢？很多用户对此还不是很清楚，小编这里就给大家带来有关Word 2010怎么更改汉字拼音的回答，希望能够对
- 在word文档中我们可以给文字添加阴影效果，这样可以让文字看起来更加地立体。我们给文字添加阴影后，还可以设置阴影的偏移方向，比如向左偏移，向
- 在一个word文档中，可以为每个段落设置不同的样式，系统中默认的样式有很多种，一般分为标题样式、正文样式、要点、引用样式等。不同的样式有其不
- 有时我们得到的文档或下载的文档设置了背景色，有的人对该背景色看的不习惯，或不舒服，向更换该文档的背景色，设置为自己喜欢的颜色，或设置为默认的
- 现在还没有换上Office 2013版本的朋友，都还在使用2010版本，比起之前的Office版本，2010版本似乎更显特色，因此很多的朋友
- Word文档中插入页码是办公的基本操作，利用微软Office所提供的强大页码功能，我们可以实现丰富多样的页码格式。以下小编将为大家讲解一下在
- Win10专业版鼠标光标不见了怎么办？检查鼠标后发现鼠标正常连接着，鼠标也没有损坏，就是桌面上不显示鼠标光标，遇到这种情况该怎么办呢？一起来
- 今天凌晨，苹果给老用户推送了 iOS 12.5.1 正式版。iOS 12.5.1 正式版的版本号为 16H22，主要对暴露通知的 Bug 进
- Word 2007插入口音和符号的快捷方式？您可以使用快捷方式在您的Word文档中插入带重音符号和通用符号。例如，您可以键入deja vu或
- iOS 15 带来了不少出色的功能，同时苹果也对保护用户隐私采取了进一步的措施。iOS 15 可让您更清楚地了解应用程序如何访问您的数据，保
- 在使用wps文字的时候，为了让文章更加有质感，可以添加背景图片，这样不会显得太单调。那么问题来了，在WPS文字中，如何设置背景?1、首先我们
- win10系统的个性化功能是根据分辨率来调整桌面以及默认字体的，但是很多用户都会觉得字体显得太小，看的时间久了容易疲劳，那win10字体大小
- 在Word中可以进行一些简单的数据计算，以Word2007为例，只要切换到布局选项卡，在数据命令组中单击展开公式按钮，选择相应的函数命令即可
- 平常在Word2007文档中绘制类似组织架构的图形时，就需要绘制多个图形，而图形添加后，难免会参差不齐。为了让整个文档更加好看、协调，我们常
- iOS15.5正式版值得更新吗？毫无疑问，iOS15.5正式版值得更新。在历经四个测试版后，苹果给大家推送了iOS 15.5 正式版更新，i
- 第1步，打开Word2007文档窗口，切换到“页面布局”选项卡。在“页面设置”分组中单击“页面边框”按钮，如图所示。 &nbs
- 在苹果发布的最新系统 iOS 15 和 iPadOS 当中，您可以让任何人加入 FaceTime 通话，即使他们没有苹果设备。新系
- 许多使用win10的用户都遇到过更新失败，无法打开计算机的情况。事实上，这不仅是系统问题，也是硬件问题。让我们看看详细的解决方案。win10
