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

78 阅读 0 评论 52 点赞

我是靠谱客的博主谦让白云，最近开发中收集的这篇文章主要介绍将查询结果导出到Excel的另一个方法（转帖），觉得挺不错的，现在分享给大家，希望可以做个参考。

将查询结果导出到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]

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。

本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。