
16.05.2012, 12:09
|
 |
Местный
|
|
Регистрация: 09.08.2011
Адрес: г.Сургут, ХМАО
Сообщения: 453
Репутация: 7402
|
|
Код:
procedure TForm1.Button1Click(TObject: Sender);
var
e: OleVariant;
begin
e:= CreateOleObject('Excel.Application');
e.Workbooks.Add('C:\test.xls');
//первая индекс - номер строки, второй - номер столбца
Edit1.Text:= e.Cells[5,3].Value; //тут из ячейки C5
e.DisplayAlers:= false;
e.Quit;
end;
__________________
Google в помощь
|