Как экспортировать данные из Access в Excel, используя ADO (Часть 2)

Экспорт данных в Excel из Access, используя ADO в Delphi

Теперь, самое время перейти к реализации экспорта наших данных в Microsoft Excel.

Подключим в раздел Uses две функции ActiveX и ComObj.

1) В разделе private пропишем две функции

и

2)  В разделе var объявим глобальные переменные

3) жмем Ctrl+Shift+  и для первой функции прописываем:

4)  А для второй

5) Добавляем к настройкам столбцов и кнопок при открытии формы, в событие OnCreate формы следующее условие:

6) И наконец, создаем обработчик событий на Button5, где записываем:

Запускаем проект, заполняем нашу таблицу случайными данными,

Экспорт данных в Excel из Access 21

Теперь жмем на Экспорт в Excel

Далее, если мы перейдем по адресу указанному в  FExcel.Workbooks[1].SaveAs (‘C:\Users\Администратор\Documents\RAD Studio\Projects\Телефонный справочник\эксель.xlsx’); там мы обнаружим «экселевский» файл, открыв который, мы увидим.

Экспорт данных в Excel из Access 22