[poli-smen]

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

Никак не могу понять как сделать поиск в Excel? Нужно приаттачиться к уже открытому документу и там уже искать. но какого-то у меня постоянно возникает Exeption, что запрос отклонён. Кучу кода нарыл и всё везде разное. Про то как вставить, скопировать - полно, а вменяемого кода про поиск - нигде.

Всё нормально работает. Пример:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ExcelApplication1.ConnectKind:=ckRunningInstance;
  ExcelApplication1.Connect;
  ExcelApplication1.Visible[LOCALE_USER_DEFAULT]:=True;

  ExcelWorkbook1.ConnectKind:=ckRunningInstance;
  ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Open('E:\Test\111.xls',
    EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
    EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
    EmptyParam, EmptyParam, LOCALE_USER_DEFAULT));

  ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _WorkSheet);

  ExcelWorksheet1.Cells.Find('4073', ExcelApplication1.ActiveCell, xlFormulas,
    xlPart, xlByRows, xlNext, False, EmptyParam, False).Activate;
end;