电脑教程
位置：首页>> 电脑教程>> office教程>> VBA将Excel导出为XML

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
投稿

猜你喜欢

手机版 电脑教程 asp之家 www.aspxhome.com