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

Question

如题

Answer 1

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

Answer 2

主題：如何將 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 成為 TestTableExportExcelSheetToAccess "Sheet1", "C:\book1.xls", "TestTable", "C:\Test.mdb"

Answer 3

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