如何將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 "