VBAでの制御になりますが、 Excelをインポートするには、「TransferSpreadsheet」使って、インポートできます。 (Excelをそのままインポート) Excelの項目(セル)に該当するテーブルを作成しておき、そのテーブルへ直接インポートすることができます。 --- DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "インポート先のテーブル名", "Excelへの絶対パス", , "シート名" --- ※シート名は、指定しなければ1シート目がインポートされます。 もしシートが複数あるのなら、ADOか、DAO等でExcelに接続して、「TableDefs(0).Name」で、シート名も取得できます。 --- '■Excelデータベースへ接続 Dim xDB As Database Set xDB = O