下面我已程序代碼做成模塊，只要導入必要之參數即可！
此一模塊共有四個參數：
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"->
