Delphi | Взаимодействие с Excel (via TExcelApplication) - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Delphi | Взаимодействие с Excel (via TExcelApplication) (http://forum.oszone.net/showthread.php?t=52897)

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

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

Цитата:

полный, рабочий код выгрузки данных в 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 - и всё работает.

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

Код:

 

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.

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

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