13.11.2019, 08:21
|
Прохожий
|
|
Регистрация: 18.01.2018
Сообщения: 30
Версия Delphi: 7, XE5
Репутация: 10
|
|
Цитата:
Сообщение от 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;
|