[Vansha]

Приветствую. Нужна помощь.
Как из Excel подгрузить данные ячейки А1 в Edit1 по нажатию BitBtn?

[lmikle]

Ищем по ключевому слову "Delphi Excel OLE Automation"
Примеров полно, в том числе на этом сайте.

[Vansha]

Сообщение от lmikle

Ищем по ключевому слову "Delphi Excel OLE Automation"
Примеров полно, в том числе на этом сайте.

Спасибо.
Вот что получилось.

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
  var Ap : Variant;

 begin
Ap := CreateOleObject('Excel.Application');
Ap.Workbooks.Open('C:\test\test.xls',0,True);
Ap.DisplayAlerts := False;
Edit1.Text:= Ap.Range['B3'];
Ap.Application.Quit;

end;