如何将用ADO返回的Recordset（结果集）保存为文件？

作者：绿色风分类：时间：2022-08-17 浏览：111

楼主水星钓鱼	Q：如何将用ADO返回的Recordset（结果集）保存为文件？ A：可以用Recordset对象的Save方法将（结果集）保存为文件，它的语法如下： recordset.Save Destination, PersistFormat 参数 Destination：表示要保存到的路劲参数 PersistFormat：表示要保存的类型，一般可以保存为XML格式（用常量adPersistXML 表示，值为1）以下代码将Recordset（结果集）保存到工作簿同路径下的“结果集”文件中。 Private Sub CommandButton1_Click() Dim oRecrodset Dim sConStr As String Dim sSql As String Dim oWk As Worksheet Dim i As Integer sConStr = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 8.0;HDR=YES'" sSql = "select * from [一月$]" & _ " union all select * from [二月$] union all " & _ "select * from [三月$]" Set oRecrodset = CreateObject("ADODB.Recordset") With oRecrodset .Open sSql, sConStr .Save ThisWorkbook.Path & "\结果集文件", 1 End With Set oRecrodset = Nothing End Sub 附件如下：保存联合查询的结果为文件.rar 随后可以用“记事本”打开这个文件如下图所示：
2楼 xyf2210	学习
3楼 bluexuemei	学习!
4楼老糊涂
5楼 yytax2010	谢谢分享！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表