Delphi | Взаимодействие с Excel (via TExcelApplication)

[Loki3D]

Унизительная ПРосьба. :(
Наишите мне пожалуйста полный, рабочий код выгрузки данных в Excel.
Постенький пример с подробным описанием пожалуйста, Так сказать для Идиотов.
Допустим передать значение из Edit1.text в ячеку листа Excel.
Дальше я сам думаю разобраться...
А то из всех нарытых мною примеров кода у меня ничего неполучилось, даже запустить приложение Excel. :(
info:
1.Delphi 5
2.Есть компонент TExcelApplication на закладке Servis, правда при его использовании он в Uses прописывается как Excel97 а у меня на компе установлен Ex2000.
3.Установлен он НЕ в дирректорию по-умлчанию, если это имеет значение при вызове приложения?

[Savant]

полный, рабочий код выгрузки данных в Excel
Допустим передать значение из Edit1.text в ячеку листа Excel

unit < .. >;

interface

uses
< ... все стандартные ... >, OleServer, Excel97;

type
TForm1 = class(TForm)
ExcelApp: TExcelApplication;
ExcelWB: TExcelWorkbook;
ExcelWS: TExcelWorksheet;
Edit1: TEdit;
< .. >
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
< .. >
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation


{$R *.dfm}

var lcid: Integer = 0;

procedure TForm1.FormCreate(Sender: TObject);
begin
// Подключаемся
ExcelApp.ConnectKind := ckRunningOrNew;
ExcelApp.Connect;
ExcelApp.Visible[lcid] := True;
ExcelApp.Workbooks.Add(EmptyParam, lcid);
ExcelWB.ConnectTo(ExcelApp.ActiveWorkbook);
ExcelWS.ConnectTo(ExcelWB.Worksheets[1] as _Worksheet);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
// Выкладываем значения в ячейки
ExcelWS.Cells.Item[1 { = строка }, 1 { = столбец }] := 'Привет!';
ExcelWS.Cells.Item[2, 5] := 'Ячейка E2';
ExcelWS.Cells.Item[2, 6] := Edit1.Text;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
// Закрываемся и уходим
ExcelWS.Disconnect;
ExcelWB.Close(0 { = не сохранять изменения});
ExcelApp.UserControl := True;
ExcelApp.Quit;
end;

end.


Емнип для Excel'я можно использовать любые версии модулей не выше версии самого Excel (т.е., теоретически, программа, написанная с модулем Excel97, будет корректно работать с Excel 97-2003). Во всяком случае, в экселе (в отличие от ворда, например) новые парметры методов интерфейса добавлялись к концу списка (если можно так выразиться =) ), так что с обратной совместимостью проблем не должно быть. По крайней мере, у меня на десктопе сейчас стоит Excel 2003, а этот код компилировался с модулем Excel97 - и всё работает.

[Loki3D]

Большое спасибо Все отработало..
С твоего позволения выложу Код в более привычном виде, для тех, которые учатся писать по учебникам, как я.


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Excel97, OleServer;

type
TForm1 = class(TForm)
Edit1: TEdit;
ExcelApplication1: TExcelApplication;
ExcelOLEObject1: TExcelOLEObject;
ExcelWorkbook1: TExcelWorkbook;
ExcelWorksheet1: TExcelWorksheet;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
// подключение
Form1.ExcelApplication1.ConnectKind := ckRunningOrNew;
FOrm1.ExcelApplication1.Connect;
Form1.ExcelApplication1.Visible[1] := True; { здесь и далее должен быть
параметр lcid назначение которого я не понял,
но от балды поставил знаечение = 1, чтоб скомпилилось}
FOrm1.ExcelApplication1.Workbooks.Add (EmptyParam,1);
Form1.ExcelWorkbook1.ConnectTo (Form1.ExcelApplication1.ActiveWorkbook );
Form1.ExcelWorksheet1.ConnectTo (Form1.ExcelWorkbook1.Worksheets [1] as _WorkSheet);

//выгрузка
Form1.ExcelWorksheet1.Cells.Item [1,1]:='ПРивет';
Form1.ExcelWorksheet1.Cells.Item [2,5]:='Ячейка E2';
FOrm1.ExcelWorksheet1.Cells.Item [2,6]:= Form1.Edit1.Text;



end;

procedure TForm1.Button2Click(Sender: TObject);
begin
// выход
Form1.ExcelWorksheet1.Disconnect;
Form1.ExcelWorkbook1.Close (0);
Form1.ExcelApplication1.UserControl := true;
Form1.Close;
end;

end.

[Savant]

lcid - это идентификатор языка, для русского 1049

[Loki3D]

Еще Раз Спасибо!