我是靠谱客的博主 谦让白云,这篇文章主要介绍将查询结果导出到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]

最后

以上就是谦让白云最近收集整理的关于将查询结果导出到Excel的另一个方法(转帖)的全部内容,更多相关将查询结果导出到Excel内容请搜索靠谱客的其他文章。

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

评论列表共有 0 条评论

立即
投稿
返回
顶部