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

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