5,139
社区成员
发帖
与我相关
我的任务
分享access上用vba编写代码导出access数据表中数据做成Excel文件保存
access上用vba编写代码导出access数据表中数据做成Excel文件保存，如何实现？我用传统的数据连接：
'连接数据库查询
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;data source=D:\aa.mdb"
rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic
cnn.open 这一句老是报错
然后换种方式：
DoCmd.OpenQuery "检查记录", acViewNormal
DoCmd.RunCommand acCmdOutputToExcel
DoCmd.Close acQuery, "检查记录"
Set wbk = exlapp.ActiveWorkbook
Set sht = exlapp.ActiveSheet
wbk.SaveAs "D:\aaaa.xls"
这一种方式中wbk.SaveAs "D:\aaaa.xls"这一步总是报错，另外我想在生成的这个Excel前后分别插入一列空列，空列第一行显示列名。
一直失败很郁闷。不知道有没有高手指点一下，另外直接在库里写的vba是不是不需要在写连接字符串创建连接就可以查询数据？
'连接数据库查询
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;data source=D:\aa.mdb"
rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic
cnn.open 这一句老是报错
然后换种方式：
DoCmd.OpenQuery "检查记录", acViewNormal
DoCmd.RunCommand acCmdOutputToExcel
DoCmd.Close acQuery, "检查记录"
Set wbk = exlapp.ActiveWorkbook
Set sht = exlapp.ActiveSheet
wbk.SaveAs "D:\aaaa.xls"
这一种方式中wbk.SaveAs "D:\aaaa.xls"这一步总是报错，另外我想在生成的这个Excel前后分别插入一列空列，空列第一行显示列名。
一直失败很郁闷。不知道有没有高手指点一下，另外直接在库里写的vba是不是不需要在写连接字符串创建连接就可以查询数据？
...全文
请发表友善的回复…
发表回复
sosoben 2012-11-01
- 打赏
- 举报
DoCmd.OutputTo acOutputTable, "sheet", "Excel97-Excel2003Workbook(*.xls)", "", False, "", 0, acExportQualityPrint如果只在Access里面操作，根本不需要这么复杂，自己编辑个宏，然后转成VBA就可以了
以上是 把一个数据表输出到excel的语句
查询数据也一样，用创建查询就可以了啊
导入数据也可以，在宏里面就能查到
