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

• 关 键 词：
• microsoft
• 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

【深 度 阅 读】 相 关 文 章

• 一个身份证升位号码查询系统的源码
• C#通过查询结果进行分页
• 郑州：“电子地图”查询系统正式启动
• Hibernate分页查询原理解读