access 输出为excel文件

Question

我用的是vb＋access数据库，我想问问在vb中怎么写代码能实现把access中一张表，如fhdlb变成输出成excel文件！多谢，

Answer 1

'把Access表的数据导入Excel里（需要引用ADO）：Dim cnExcel As New ADODB.Connection
cnExcel.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.xls;Extended Properties='Excel 8.0;HDR=Yes'"cnExcel.Execute "SELECT * INTO [SheetTmp]  FROM AccessTable IN """ & App.Path & "\Test.mdb"""cnExcel.Close
Set cnExcel=Nothing

Answer 2

试过了，vb中报找不到表，我的access数据库是在是d:\cangku\cangku.mdb的中的表fhlbyzd。能不能帮忙写一下具体的代码

Answer 3

cnExcel.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.xls;Extended Properties='Excel 8.0;HDR=Yes'"
cn.Execute ("SELECT * INTO [fhlbyzd]  FROM fhlbyzd IN ""d:\cangku\cangku.mdb""")导出到C:\test.xls(Sheet名为fhlbyzd)

Answer 4

要寫代碼嗎？
打開表，工具菜單，OFFICE協作，裏面不是有菜單嗎？

Answer 5

Private Sub Command1_Click()
    Dim cnExcel As New ADODB.Connection
    cnExcel.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.xls;Extended Properties='Excel 8.0;HDR=Yes'"    cnExcel.Execute ("SELECT * INTO [fhlbyzd]  FROM fhlbyzd IN ""d:\cangku\cangku.mdb""")
    cnExcel.Close
    Set cnExcel=Nothing
End Sub

Answer 6

关于此主题请参考以下文章(不要只看标题，请认真仔细地察看上述文章以及相关的评论)：
    《查询》如何查询其他数据库内的表(IN子句实例)？
    http://access911.net/index.asp?u1=a&u2=71FAB21E17DC----------------------- 911 社区回帖个人签名 start -----------------------http://access911.net/csdn 无须注册提供附件上传功能，如果你提问的时候有附件请到上述地址上传并将链接复制粘贴。http://access911.net 用 7 年时间整理了大量有关 Access 的原创资料，请有空的时候多用文章搜索功能如果您有兴趣加入ACCESS编程的专项研究可以来QQ群“ACCESS上海研究班”看看，加入的方法请看这里《个性化的access911.net（七）QQ 群加入规则（专门讨论 ACCESS 的 ）》
http://access911.net/?kbid;72FAB01E16DCECF3----------------------- 911 社区回帖个人签名 end ----------------------- 向上看呦！

Answer 7

谢谢faysky2() ,但是有没有更好的输出excel呢?因为这样输出excel后,必须把原来的删了才能输出.不然就会报错.