Виталий Тихвинский
Загрузка таблицы БД, в Excel таблицу

Необходимо в редакторе VBA в меню Сервис-ссылки включить библиотеку Microsoft DAO 3.5 object library.
Имя объекта Workspaces(0) в указанных примерах можно опустить.

Dim db As Database, r As Recordset

Set db = Workspaces(0).OpenDatabase("Полный путь к базе и ее имя")

Set r = db.OpenRecordset("Имя загружаемой таблицы")

Cells(i, j).CopyFromRecordset r
r.Close

db.Close


‘можно загрузить данные в Excel таблицу и на прямую без указателей

Cells(i, j).CopyFromRecordset  _
Workspaces(0).("Полный путь к базе и ее имя").OpenRecordset("Имя загружаемой таблицы")