下面图老师小编要跟大家分享VBA将Excel导出为XML，简单的过程中其实暗藏玄机，还是要细心学习，喜欢还请记得收藏哦！
【 tulaoshi.com - Excel教程 】
以下代码的功能，是配合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
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com）End With
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com）Set str = Nothing
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com）Set rst = Nothing
注意，要使用如上的代码，需要添加MS ADO Library引用。
来源:https://www.tulaoshi.com/n/20160219/1606081.html
看过《VBA将Excel导出为XML》的人还看了以下文章 更多>>
