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是不是不需要在写连接字符串创建连接就可以查询数据？
[解决办法]
DoCmd.OutputTo acOutputTable, "sheet", "Excel97-Excel2003Workbook(*.xls)", "", False, "", 0, acExportQualityPrint
