Показать сообщение отдельно
  #2  
Старый 16.05.2012, 12:09
Аватар для Ildar-tsr
Ildar-tsr Ildar-tsr вне форума
Местный
 
Регистрация: 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 в помощь
Ответить с цитированием