エクセルからシート名を指定してデータを取り込む

'デスクトップに保存したエクセルから取り込む

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "テーブル名", CreateObject("wScript.Shell").SpecialFolders("Desktop") & "\エクセルファイル名.xls", True, "シート名!"

'Cドライブに保存したエクセルから取り込む

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "テーブル名", "C:\エクセルファイル名.xls", True, "シート名!"

'マイドキュメントに保存したエクセルから取り込む

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "テーブル名", CreateObject("wscript.shell").specialfolders("MyDocuments") & "\エクセルファイル名.xls", True, "シート名!"