手作業でやっていることを、そのまま置き換えるのが一番簡単そうです。 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 & "\