Access導出Execl

VB+Access做的系統，
怎樣把數據庫Access內容導出execl？

---

现在没东西试，从网上找了段代码你看看
VB code:

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 = "C:\My Documents\MySpreadSheet.xls"
strWorksheet = "WorkSheet1"
strDB = "C:\My Documents\MyDatabase.mdb"
strTable = "MyTable"

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

End Sub

---

http://download.csdn.net/source/1483928

---

引用

http://download.csdn.net/source/1483928

TKS!

---

引用

http://download.csdn.net/source/1483928

有問༺