手作業でやっていることを、そのまま置き換えるのが一番簡単そうです。 Access からオートメーションでExcelのBookを開き Access で取り出しやすいように整形してから取り込む。 こんな感じ ※MDB ファイルと XLS ファイルは同じフォルダにあると仮定しています。 Sub test() Dim oXL As Object Dim oBK As Object Dim oSH As Object Dim tmpXls As String Set oXL = CreateObject("excel.application") Set oBK = oXL.Workbooks.Open(CurrentProject.Path & "\得意先リスト.xls") Set oSH = oBK.Sheets("リスト形式") tmpXls = CurrentProject.Path & "\
![アクセスの外部データ(エクセル)の取り込み。VBA](https://cdn-ak-scissors.b.st-hatena.com/image/square/19e354a23a69284a742e6b0f6b52679e78a39616/height=288;version=1;width=512/https%3A%2F%2Foshiete.xgoo.jp%2Fimages%2Fsp%2Fqa_recommend%2F2102_1.jpg)