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

转帖自: 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

[ 本帖最后由 lzqlaj 于 2011-7-23 16:51 编辑 ]

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