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

发表于:2007-07-01来源:作者:点击数: 标签:
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

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

 

 


原文转自:http://www.ltesting.net