VB把access数据库里的表导出成EXCEL表

lzqlaj

转帖自: http://blog.csdn.net/zoomwe/article/details/2752618（本人已通过测试）。以下为原网页文内容未作修改：
新建一个窗体，窗体上就放一个Command1按钮 ，操作：点一下Command1就导出完成了，在网上找了很久，结果在美国的一个代码论坛上找到的，国内难道都没有人这样写过吗？
注意点：在D盘下要存在一个数据库名为data.mdb  ，这个数据库里要包含一个叫pop的表，至于表里边什么内容，就随便填一点就可以了。
下面是代码了:
Private Sub Command1_Click()
    Call ExportOneTable
End Sub
Private Sub ExportOneTable()
'EXPORTS TABLE IN ACCESS DATABASE TO EXCEL
'REFERENCE TO DAO IS REQUIRED
    Dim strExcelFile As String
    Dim strWorksheet As String
    Dim strDB As String
    Dim strTable As String
    Dim objDB As Database
    'Change Based on your needs, or use
    'as parameters to the sub
    strExcelFile = "d:/MySpreadSheet.xls"
    strWorksheet = "WorkSheet1"
    strDB = "d:/Data.mdb"
    strTable = "pop"
    Set objDB = OpenDatabase(strDB)
    'If excel file already exists, you can delete it here
    If Dir(strExcelFile) <> "" Then Kill strExcelFile
    objDB.Execute _
            "SELECT * INTO [Excel 8.0;DATABASE=" & strExcelFile & _
                                                 "].[" & strWorksheet & "] FROM " & "[" & strTable & "]"
    objDB.Close
    Set objDB = Nothing
    MsgBox  OK
End Sub

其它帖子：
成绩录入工具（vb）
http://club.excelhome.net/thread-744536-1-1.html
空行操作（“插入空行”）
http://club.excelhome.net/thread-590404-1-1.html
[分享] （无意中发现的）罗刚君 底端标题生成工具（开放源码含附件）
http://club.excelhome.net/thread-601577-1-1.html
[源码全部公开] 分数段统计（数组）（vba）
http://club.excelhome.net/thread-750450-1-1.html
[源码全部公开] 分数段统计（vba）
http://club.excelhome.net/thread-599282-1-1.html
搜狗文本词库的制作（vb）
http://club.excelhome.net/thread-670925-1-1.html
汉字与区位码转换（vb版）
http://club.excelhome.net/thread-670918-1-1.html
[源码全部公开] 区位码与汉字相互转换
http://club.excelhome.net/thread-601351-1-1.html
优盘禁用工具
http://club.excelhome.net/thread-495008-1-1.html
[源码全部公开] 工资条通用生成程序（也可分考场）
http://club.excelhome.net/thread-487664-1-1.html
[转帖] 把excel追加导入到access数据库
http://club.excelhome.net/thread-745574-1-1.html
[转帖] 删除mbd数据库中所有记录
http://club.excelhome.net/thread-745139-1-1.html
[转帖] VB中对数据库的各种操作
http://club.excelhome.net/thread-745136-1-1.html

roych

不知道LZ是不是没找过，还是觉得外国的月亮特别圆。
还以为什么高级东东。不就DAO吗？不就SQL语句导出数据吗？Access中国网里的例子俯拾皆是。一句代码导入导出：
http://www.access-cn.com/thread-93430-1-1.html

lzqlaj

原帖由 roych 于 2011-7-23 21:38 发表
不知道LZ是不是没找过，还是觉得外国的月亮特别圆。
还以为什么高级东东。不就DAO吗？不就SQL语句导出数据吗？Access中国网里的例子俯拾皆是。一句代码导入导出：
http://www.access-cn.com/thread-93430-1-1.html

那是原帖子内容与我无关，本人这几天才接触数据库，水平很有限。
导入数据（导入数据时第一行必须是字段名）：
DoCmd.RunSQL "INSERT INTO 表名 SELECT * FROM [Excel 8.0;DATABASE=E:\桌面\测试数据.xls].[Sheet1$]"
DoCmd.RunSQL "INSERT INTO 表名 SELECT * FROM [Sheet1$] IN 'E:\桌面\测试数据.xls'[EXCEL 8.0;]"
DoCmd.RunSQL "INSERT INTO 表名 SELECT * FROM [Sheet1$] IN 'E:\桌面\测试数据.xls' 'EXCEL 8.0;'"
导出数据：
DoCmd.RunSQL "SELECT * INTO [Excel 8.0;DATABASE=E:\桌面\测试数据.xls].[Sheet1] FROM 表名"
DoCmd.RunSQL "SELECT * INTO [Sheet1] IN 'E:\桌面\测试数据.xls'[EXCEL 8.0;] FROM 表名"
DoCmd.RunSQL "SELECT * INTO [Sheet1] IN 'E:\桌面\测试数据.xls' 'EXCEL 8.0;' FROM 表名"
能讲一下，具体怎么从mdb导出到excel吗？

roych

Docmd.RunSQL语句和Connection.Execute（或Database.Execute）语句是通用的。不同的是，使用前者的话会可能会弹出提示对话框（例如执行删除查询等操作时）。
如果在VB（是VB，不是Access）里使用Docmd，则需要建立Access组件。不过在Access里，我们通常是使用TransferSpeardSheet来处理的，语句没有RunSQL那么复杂。

a8737461

留个标记准备学习

boy8199

呵呵，学习

greener2008

感谢分享，标记

无姓人

学习了，谢谢分享！！！

songzi2000

学习了，谢谢分享！！！