将查询结果导出到Excel的另一个方法（转帖）

最新推荐文章于 2021-04-05 19:36:50 发布

宁城的雪

最新推荐文章于 2021-04-05 19:36:50 发布

阅读量1.2k

点赞数

分类专栏： SQLSERVER 文章标签： excel string security database 文档 command

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接：https://blog.csdn.net/rainsnow/article/details/191612

版权

SQLSERVER 专栏收录该内容

16 篇文章 0 订阅

订阅专栏

将查询结果导出到Excel的另一个方法

发表时间：2004-8-10
作者：未知[获得此文档时候没有作者记录，深感抱歉，本文档全为转载]

Option Explicit
Dim dbado As New ADODB.Connection
Dim cmdado As New ADODB.Command
Dim sqlstr As String
Dim howdo As String
Dim filename As String

Private Sub command1_click()
filename = App.Path & "/" & InputBox("输入新文件名：", "保存") & ".xls"
howdo = Text1.Text

dbado.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/goods.mdb;Persist Security Info=False")

sqlstr = "SELECT * INTO [Excel 5.0;DATABASE=" & filename & "].[data] FROM [basic] where id in (" & howdo & ")"

dbado.Execute (sqlstr), , adCmdText + adExecuteNoRecords

dbado.close

end sub

中国.Net俱乐部转载此文。让我们一起进步，共享人类技术资源。[www.chinaaspx.com]

关注

0
点赞
踩
1

收藏

觉得还不错? 一键收藏
0
评论
将查询结果导出到Excel的另一个方法（转帖）

将查询结果导出到Excel的另一个方法发表时间：2004-8-10作者：未知[获得此文档时候没有作者记录，深感抱歉，本文档全为转载] Option ExplicitDim dbado As New ADODB.ConnectionDim cmdado As Ne
复制链接

扫一扫

专栏目录

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。