能不能用VB把EXCEL里的信息导入ACCESS中？

[diedknight]

如题

[daisy8675]

Private Sub Command6_Click()
' conn.Execute "insert into [test] select * from [html export;database=e:\test].[test3.htm]"
conn.Execute "insert into [test] select * from [Excel 8.0;database=e:\test\test4.xls].[test4]"
Unload Me
End Sub

[daisy8675]

主題：如何將 Excel 的資料表匯入 Access資料庫？
來源：Yamini
版本：VB6.0 / VB5.0

--------------------------------------------------------------------------------


先前我們在【問題127】資料庫的匯出 ---- 使用 DAO 提過資料庫的匯出功能，之後，很多網友來信問到如何將 Excel 的資料表中的資料匯入 Access 資料庫，下面我已將程式碼做成模組，只要傳入必要之參數即可！

此一模組共有四個參數：
1、sSheetName：要匯出資料的資料表名稱 (Sheet name)，例如 Sheet1
2、sExcelPath：要匯出資料的 Excel 檔案路徑名稱 (Workbook path)，例如 C:\book1.xls
3、sAccessTable：要匯入的 Access Table 名稱，例如 TestTable
4、sAccessDBPath：要匯入的 Access 檔案路徑名稱，例如 C:\Test.mdb

在宣告區中加入以下宣告：

Private Sub ExportExcelSheetToAccess(sSheetName As String, _
sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(sExcelPath, True, False, "Excel 5.0")
Call db.Execute("Select * into [;database=" & sAccessDBPath & "]." & _
sAccessTable & " FROM [" & sSheetName & "$]")
MsgBox "Table exported successfully.", vbInformation, "Yams"
End Sub
使用範例如下：將 C:\book1.xls 中的 Sheet1 匯入 C:\Test.mdb 成為 TestTable

ExportExcelSheetToAccess "Sheet1", "C:\book1.xls", "TestTable", "C:\Test.mdb"

[diedknight]

用ADO实现能说清楚一点吗？谢谢