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