下面我已程序代码做成模块，只要导入必要之参数即可！
　　
　　此一模块共有四个参数：
　　1、sSheetName：要导出资料的文件名称(Sheetname)，例如Sheet1
　　2、sExcelPath：要导出资料的Excel档案路径名称(Workbookpath)，例如C:ook1.xls
　　3、sAccessTable：要导入的AccessTable名称，例如TestTable
　　4、sAccessDBPath：要导入的Access档案路径名称，例如C:Test.mdb
　　
　　在声明中加入以下：
　　
　　PrivateSubExportExcelSheetToAccess(sSheetNameAsString,sExcelPathAsString,sAccessTableAsString,sAccessDBPathAsString)
　　DimdbAsDatabase
　　DimrsAsRecordset
　　Setdb=OpenDatabase(sExcelPath,True,False,"Excel5.0")
　　Calldb.Execute("Select*into[;database="&sAccessDBPath&"]."&sAccessTable&"FROM["&sSheetName&"$]")
　　MsgBox"Tableexportedsuccessfully.",vbInformation,"Yams"
　　EndSub
　　使用范例如下：將C:ook1.xls中的Sheet1导入C:Test.mdb成为TestTable
　　
　　ExportExcelSheetToAccess"Sheet1","C:ook1.xls","TestTable","C:Test.mdb"->