Отже, об'єкт Excel завантажений у пам'ять комп'ютера, і в нас є доступ до нього через змінну e:variant. Об'єкт має методи, за допомогою яких можна створювати, відкривати й зберігати книги.
Створення книги
Для створення книги використовують метод:
e.workbooks.add;
Після виконання цього методу буде створена книга на підставі стандартного шаблону.
Викликати методу add можна з аргументом ( ім'ям файлу шаблону). У цьому випадку створюється документ по шаблонові. Для своїх додатків можна створити додаткові шаблони документів, наприклад шаблон форми платіжного доручення або податкової декларації. Надалі, використовуючи метод add із зазначенням на шаблон, легко створити потрібний звіт, заповнюваний інформацією із програми. Використання шаблонів дозволить створювати гнучкі й зручні для користувача додатки в середовищі Delphi.
Приклад. Нехай у теціці із програмою є текака шаблонів з ім'ям Shablon, а в ній файл шаблону з ім'ям anketa.xlt. Створимо нову книгу на основі шаблону.
e.workbooks.add(extractfilepath(application.exename)+'shablon\anketa.xlt');
Збереження книги
Можна програмно зберегти створену книгу на диск. Для цього використовується метод виду:
e.activeworkbook.saveas(filename:='ім'я файлу'[,password:='пароль']);
Метод має аргументи:
- filename – ім'я файлу;
- password – пароль на відкриття файлу.
- filename – ім'я файлу;
- password – пароль на відкриття файлу.
Наприклад: відкриємо збережений раніше файл:
e.workbooks.open(filename:=extractfilepath(application.exename)+'output\отчет.xls');
Якщо файл має пароль, то його можна відкрити так:
e.workbooks.open(filename:=extractfilepath(application.exename)+'output\отчет.xls',password:=’123456’);
Закриття книги й додатка Excel
Якщо книга збережена, то її можна закрити за допомогою методу:
e.activeworkbook.close;
Після закриття книги можна закрити й сам додаток Excel. Для цього використовують два оператори:
e.quit;
e:=unassigned;
Використовуючи методи роботи із книгами можна організовувати фонове створення файлів без відображення їх на екрані.
Приклад. На підставі шаблону anketa.xlt з теки shablon створити нову книгу. Зберегти книгу з ім'ям отчет.xls у теку output. Після збереження видати повідомлення про успішне створення файлу й запросити користувача відкрити файл для перегляду. Якщо відповідь позитивна, то файл відкривається, якщо негативна, то Excel закривається.
try
//підключаємося до excel
e:=getactiveoleobject('excel.application');
except
//якщо підключення не вдалося (excel не запущений)
//створюємо новий об'єкт, запускаючи excel
e:=createoleobject('excel.application');
end;
//створюємо нову книгу на основі шаблону
e.workbooks.add(extractfilepath(application.exename)+'shablon\anketa.xlt');
//зберігаємо документ у зазначений файл
e.activeworkbook.saveas(extractfilepath(application.exename)+'output\отчет.xls');
//видаємо запит на відкриття збереженого файлу
if application.messagebox(Файл збережено. відкрити?','Запит',
mb_yesno+mb_iconquestion)=idyes then
//якщо відповідь так, робимо excel видимим
e.visible:=true
else
//якщо відповідь ні, закриваємо документ і excel
begin
e.activeworkbook.close;
e.quit;
e:=unassigned;
end;
