我是
靠谱客的博主
谦让白云,这篇文章主要介绍
将查询结果导出到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内容请搜索靠谱客的其他文章。
本图文内容来源于网友提供,作为学习参考使用,或来自网络收集整理,版权属于原作者所有。
发表评论 取消回复