access 输出为excel文件

mikazhou 2006-03-16 02:05:04
我用的是vb+access数据库,我想问问在vb中怎么写代码能实现把access中一张表,如fhdlb变成输出成excel文件!多谢,
...全文
180 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
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

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧