アクセスの外部データ（エクセル）の取り込み。VBA

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