下面代码的作用是配合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引用。
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 86345@qq.com 举报，一经查实，本站将立刻删除。
