Как экспортировать данные из 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 Как экспортировать данные из Access в Excel, используя ADO (Часть 2)

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

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

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