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

新建一个窗体，窗体上就放一个Command1按钮

操作：点一下Command1就导出完成了，在网上找了很久，结果在美国的一个代码论坛上找到的，国内难道都没有人这样写过吗？

注意点：在D盘下要存在一个数据库名为data.mdb  ，这个数据库里要包含一个叫pop的表，至于表里边什么内容，就随便填一点就可以了。

 

下面是代码了：

 

1. Private Sub Command1_Click()
2. Call ExportOneTable
3. End Sub
5. Private Sub ExportOneTable()
7. 'EXPORTS TABLE IN ACCESS DATABASE TO EXCEL
8. 'REFERENCE TO DAO IS REQUIRED
10. Dim strExcelFile As String
11. Dim strWorksheet As String
12. Dim strDB As String
13. Dim strTable As String
14. Dim objDB As Database
16. 'Change Based on your needs, or use
17. 'as parameters to the sub
18. strExcelFile = "d:/MySpreadSheet.xls"
19. strWorksheet = "WorkSheet1"
20. strDB = "d:/Data.mdb"
21. strTable = "pop"
23. Set objDB = OpenDatabase(strDB)
25.  'If excel file already exists, you can delete it here
26.  If Dir(strExcelFile) <> "" Then Kill strExcelFile
28. objDB.Execute _
29.   "SELECT * INTO [Excel 8.0;DATABASE=" & strExcelFile & _
30.    "].[" & strWorksheet & "] FROM " & "[" & strTable & "]"
31. objDB.Close
32. Set objDB = Nothing
33. MsgBox OK
34. End Sub