access 输出为excel文件

[mikazhou]

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

[faysky2]

'把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

[mikazhou]

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

[faysky2]

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)

[vansoft]

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

[mikazhou]

试过了，vb说报错说要求对象！

[faysky2]

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

[changechange]

关于此主题请参考以下文章(不要只看标题，请认真仔细地察看上述文章以及相关的评论)：
《查询》如何查询其他数据库内的表(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 -----------------------

向上看呦！

[mikazhou]

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