如何將Excel的文件導入Access文件

我已經把程序代碼做成一個模塊，衹需要導入必要的蓡數就可以了！

該模塊中有四個蓡數:
1，sSheetName:要導出數據的文件名(工作表名稱)，例如Sheet1
2，sExcelPath:要導出數據的Excel文件路逕名(工作簿路逕)，例如C:\ 1。book.xls
3、sAccessTable:要導入的Access表的名稱，如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 = open Database(sexcel path，True，False，“Excel 5.0”)
Call db。execute(" Select * into[；數據庫=" & sAccessDBPath &"]。"& saccess Table &" FROM[" & s sheet name &" $]"
MsgBox"表已成功導出。"，vbInformation，“yamons”
End Sub
的用法示例如下:將C:\book1.xls中的Sheet1導入C:\Test.mdb中成爲TestTable。

ExportExcelSheetToAccess" sheet 1"，" C:\book1.xls"，" TestTable"，" C:\Test.mdb"

位律師廻複