Адрес этой странички : http://doc-prg.narod.ru/art_00901/art_00901.htm 

© 21.08.2007 Сергей Попов

Excel + Delphi-5.
OLE (COM).
Запуск программы Excel

Статью в виде файла (260 кб) можно скачать здесь: art_00901.zip 

При программировании прикладных задач часто бывает необходимо обеспечить информационный обмен с Excel.
Один из возможных вариантов для этого - является механизм OLE Automation.
Ниже приведен текст простой функции, иллюстрирующей  запуск программы в Excel с использованием механизма OLE Automation.

function ExecExcel(sExcelName : string;YesVisible,YesAddWorkBooks : boolean) : Variant; //Запуск Excel в режиме OLE Automation //sNameExcel - имя Excel, как OLE Automation сервер //YesVisible - режим видимости окна Excel //YesAddWorkBooks - создать рабочую книгу //Возвращает OLE-ссылку на Excel begin Result := UnAssigned; sExcelName:=Trim(sExcelName); if length(sExcelName)<=0 then sExcelName:='Excel.Application'; //Запуск Excel Result:=CreateOleObject(sExcelName); //проверка корректности ссылки if not VarIsEmpty(Result) then begin //Видимость окна Excel Result.Visible:=YesVisible; if YesAddWorkBooks then begin //добавить рабочую книгу Result.Workbooks.Add(); end; end; end;

Проверим, как это работает.

Создадим Delphi-проект.
Ниже представлена форма проекта.

Рис.1. Форма проекта Connect_to_Excel.dpr

Изменим текст, созданный Delphi следующим образом :

unit cte1;
interface
uses
 ComObj, //изменение
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 ExtCtrls, StdCtrls, Buttons, Spin;

type
TForm1 = class(TForm)
  ...
  ...
public
  { Public declarations }
  Excel : Variant;
end;
 

Создадим обработчик события OnCreate для формы :

procedure TForm1.FormCreate(Sender: TObject); begin Edit_ExcelName.Text:='Excel.Application'; Excel:=UnAssigned; Label_YesConnect.Visible:=false; end;

Создадим обработчик события OnCloseQuery для формы :

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose:=true; //проверяем, был ли запущен Excel if YesLinkToVariant(Excel) then begin Excel.Quit; //закрыть Excel end; Excel:=UnAssigned; end;

Текст функции YesLinkToVariant приведен ниже :

function YesLinkToVariant(HandleAny : Variant) : boolean;
//Проверяет, корректна ли ссылка (HandleAny)
begin
 Result:=FALSE;
 if not VarIsEmpty(HandleAny) then Result:=TRUE;
end;

 Теперь создадим обработчик события : нажатие на кнопку "Запустить" :

procedure TForm1.SpeedButton1Click(Sender: TObject); //Запуск Excel в режиме OLE Automation begin if YesLinkToVariant(Excel) then begin //Если Excel уже был запущен - закрываем его Excel.Quit; end; Excel:=UnAssigned; Label_YesConnect.Visible:=false; //Запускаем Excel Excel:=ExecExcel(Edit_ExcelName.Text,CB_YesVisible.Checked,CB_YesCreate_WorkBook.Checked); if YesLinkToVariant(Excel) then begin //Есть соединение с Excel Label_YesConnect.Visible:=true; //Запрос на подтверждение при закрытии Excel Excel.DisplayAlerts := CB_YesAlert.Checked; end else begin //Ошибка при запуске Excel ShowMessage('Ошибка соединения'); end; end;

Создадим обработчик события : нажатие на кнопку "Закрыть" :

procedure TForm1.SpeedButton2Click(Sender: TObject); //Закрыть Excel begin //проверяем, был ли запущен Excel if YesLinkToVariant(Excel) then begin //Если Excel уже был запущен - закрываем его Excel.Quit; end; Excel:=UnAssigned; Label_YesConnect.Visible:=false; end;

Создадим обработчик события OnClick компонента CB_YesVisible: TCheckBox ("Видимость") :

procedure TForm1.CB_YesVisibleClick(Sender: TObject); //Видимость окна Excel begin if YesLinkToVariant(Excel) then begin Excel.Visible:=CB_YesVisible.Checked; end; end;

Создадим обработчик события OnClick компонента CB_YesAlert: TCheckBox ("Запрос на подтверждение") :

procedure TForm1.CB_YesAlertClick(Sender: TObject); begin if YesLinkToVariant(Excel) then begin Excel.DisplayAlerts := CB_YesAlert.Checked; end; end;

Теперь скомпилируем наш проект, запустим программу на выполнение и проведем ряд экспериментов.

Результат нажатия на кнопку "Запустить"  :

Рис.2. Запуск Excel с использованием механизма OLE Automation 

Видимость окна Excel (при выключении флажка "Видимость") :

Рис.3. Окно Excel скрыто, но соединение осталось активным
 

Закрыть Excel и соединение с Excel (по нажатию на кнопку "Закрыть") :

Рис.4. Excel закрыт

Отредактировать (интерактивно) таблицу Excel :

Рис.5. После запуска - отредактируем одну из ячеек таблицы Excel

Попытка закрыть Excel после редактирования (по нажатию на кнопку "Закрыть")
при включенном флажке "Запрос на подтверждение" :

Рис.6. Попытка закрыть Excel после редактирования.
Включен режим : "запрос на подтверждение"

Вот, собственно, и все, что хотели рассмотреть в контексте данной темы.

Исходные тексты этого проекта можно взять здесь (9 кб) :  connect_to_excel.zip

© 21.08.2007 Сергей Попов