Открываем Excel в Delphi
Для этого, в раздел Uses программы, необходимо включить модуль ComObj.
Далее поместим на форму компонент TButton и в обработчике событий OnClick запишем следующий код:
|
1 2 3 4 5 6 7 8 |
procedure TForm1.Button1Click(Sender: TObject); var XL: Variant; begin XL := CreateOLEObject('Excel.Application'); // Создание OLE объекта XL.WorkBooks.add; // Создание новой рабочей книги XL.visible := true; end; |
Результатом выполнения станет запуск программы Microsoft Excel и открытие нового листа.
Для открытия уже существующего документа Excel следует воспользоваться методом Open:
|
1 |
XL.WorkBooks.Open('c:\example.xls'); |
Если необходимо открыть документ Excel только для чтения, пишем следующее:
|
1 |
XL.Workbooks.Open['c:\example.xls', 0, True]; |
Для закрытия документа Excel:
|
1 |
XL.Application.Quit; |
Если Вам необходимо при открытии файла использовать не абсолютный, а относительный путь, то необходимо предварительно воспользоваться функцией GetDir, рассмотрим пример ниже:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
procedure TForm1.Button1Click(Sender: TObject); var XL: Variant; AppLocation:string; begin try XL := CreateOLEObject('Excel.Application'); // Создание OLE объекта except ShowMessage('Cannot start MS Excel.'); end; GetDir(0,AppLocation); // Возвращает текущий каталог диска XL.WorkBooks.Open(AppLocation +'\filename.xlsx'); XL.visible := true; end; |