access 输出为excel文件

mikazhou 2006-03-16 02:05:04
我用的是vb+access数据库,我想问问在vb中怎么写代码能实现把access中一张表,如fhdlb变成输出成excel文件!多谢,
...全文
148 8 点赞 打赏 收藏 举报
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
mikazhou 2006-03-30
谢谢faysky2() ,但是有没有更好的输出excel呢?因为这样输出excel后,必须把原来的删了才能输出.不然就会报错.
  • 打赏
  • 举报
回复
changechange 2006-03-16
关于此主题请参考以下文章(不要只看标题,请认真仔细地察看上述文章以及相关的评论):
《查询》如何查询其他数据库内的表(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 -----------------------

向上看呦!
  • 打赏
  • 举报
回复
faysky2 2006-03-16
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
  • 打赏
  • 举报
回复
mikazhou 2006-03-16
试过了,vb说报错说要求对象!
  • 打赏
  • 举报
回复
vansoft 2006-03-16
要寫代碼嗎?
打開表,工具菜單,OFFICE協作,裏面不是有菜單嗎?
  • 打赏
  • 举报
回复
faysky2 2006-03-16
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)
  • 打赏
  • 举报
回复
mikazhou 2006-03-16
试过了,vb中报找不到表,我的access数据库是在是d:\cangku\cangku.mdb的中的表fhlbyzd。能不能帮忙写一下具体的代码
  • 打赏
  • 举报
回复
faysky2 2006-03-16
'把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
  • 打赏
  • 举报
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2006-03-16 02:05
社区公告
暂无公告