将查询结果导出到Excel的另一个方法发布时间:2008-04-03 10:39:46 来源:Blog 作者:Blog 点击:251Option Explicit Private Sub command1_click() dbado.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\goods.mdb;Persist Security Info=False")
dbado.Execute (sqlstr), , adCmdText + adExecuteNoRecords dbado.close end sub |
|