[Тимониссимо]

Смысл следюущий: из Делфи нужно отыскать текст в открытой книге excel и определить координаты ячейки. Нашел только метод find, вроде как должен был сработать, но что-то не получилось:

 TForm1 = class(TForm)
   Edit1: TEdit;
   Edit2: TEdit;
   Button1: TButton;
   e: TExcelApplication;
   procedure Button1Click(Sender: TObject);
   end;

var
 Form1: TForm1;
 Findt, sheet:variant;

implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
e.Workbooks.Open(getcurrentdir+'\1.xls',emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,empty param,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptypar am,0);
sheet:=e.workbooks[1].worksheets['лист1'];
Findt:=sheet.cells.find(what:='5');
edit2.Text:=findt.text;
end;

Возвращает в edit2.Text значение '5', а мне нужны координаты ячейки. Может быть надо не свойство .text использовать?

Подскажите, плз!!!

[Тимониссимо]

Может надо использовать свойства .Column и .row?
Не могу, к сожалению, проверить сейчас...

[Тимониссимо]

Ну все, вроде выяснил. Так и надо делать