選項比較數據庫
子測試()
DoCmd。TransferSpreadsheet acImport，8，" sheet1 "，" d:\work\book2。XLS”，假的
DoCmd。TransferSpreadsheet acImport，8，" sheet2 "，" d:\work\book2。XLS”，假的
DoCmd。TransferSpreadsheet acImport，8，" sheet3 "，" d:\work\book2。XLS”，假的
末端接頭
============================================================================
解釋:
DoCmd。TransferSpreadsheet acImport，8，" sheet1 "，" d:\work\book2。XLS”，假的
這行代碼的作用是將d:\work\book2.xls文件中的表sheet1導入到Access中。
DoCmd。TransferSpreadsheet acImport，8，" sheet2 "，" d:\work\book2。XLS”，假的
這行代碼的作用是將d:\work\book2.xls文件中的表sheet2導入到Access中。
。
。
。
==========================================================
如何使用代碼:
打開access文件，Alt +F11添加上面的代碼。
只需按下工具欄上的“執行”按鈕。
==========================================================
註意:因為是Access的VBA，所以我還沒有想出壹個好辦法來獲取Access中每個工作表的名稱，就說到這裏吧。