Question

如何用vb使用aql查询access数据库的结果导出到excel

我现在的代码实现了将全部数据库内容导出到excel，但是我现在想只是将查询后的结果导出到指定excel中，那位高手帮我修改一下代码！

Private Sub Cmd1_Click()
On Error GoTo Wrong
Dim acapp As Access.Application
Dim strsourcepath As String
Dim strreportpath As String
Dim strobjectname As String
strsourcepath = App.path & "\data\prtset.mdb"
strreportpath = "D:\test.xls"
strobjectname = "FDShuJu" '数据库中的表
Set acapp = GetObject(strsourcepath, "access.application") '打开数据库
acapp.DoCmd.OutputTo acOutputTable, strobjectname, acFormatXLS, strreportpath
acapp.CloseCurrentDatabase
Set acapp = Nothing
MsgBox "已导出在【D:\test.xls】" , vbInformation, "提示-导出成功"
Wrong:
End Sub

Answer 1

　　strsourcepath = App.path & "\data\prtset.mdb"
strreportpath = "D:\test.xls"
　　你没有发现问题吗？
　　你看看上面的两句，你只是获取了prtset.mdb数据库的路径，然后你就给导出到
　　test,xls文件内了。
　　期间你没做任何处理，当然是全部都导进去了。
　　在那两句话中间加一句SQL语句，查询出你想要的内容，你在进行导入操作不就可以了吗

追问

老大，就是两句中间加查询语句么？
我试着将strsourcepath = App.path & "\data\prtset.mdb"改为【strsourcepath = sql * from ………………】但是运行提示数据库被独占，我怎么处理。因为我的程序界面已经开始读取该数据库内容了。
我的QQ，能具体指导一下不！

追答

注意数据库先打开，然后查询，然后导入到EXCEL，然后在关闭数据库就行了
在说一次顺序注意语句执行先后顺序。还有，我建议你把数据里的链接部分单独写一个 模块。