如何將Excel的文件導(dǎo)入Access文件

面我已程序代碼做成模塊，只要導(dǎo)入必要之參數(shù)即可！
    此一模塊共有四個(gè)參數(shù)：
    1、sSheetName：要導(dǎo)出資料的文件名稱(chēng) (Sheet name)，例如 Sheet1
    2、sExcelPath：要導(dǎo)出資料的 Excel 檔案路徑名稱(chēng) (Workbook path)，例如 C:\book1.xls
    3、sAccessTable：要導(dǎo)入的 Access Table 名稱(chēng)，例如 TestTable
    4、sAccessDBPath：要導(dǎo)入的 Access 檔案路徑名稱(chēng)，例如 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 導(dǎo)入 C:\Test.mdb 成為 TestTable
    ExportExcelSheetToAccess "Sheet1", "C:\book1.xls", "TestTable", "C:\Test.mdb"