模板
教程
环境
性能
功能
管理
将查询结果导出到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
