Поиск в Экселе

[iskurt]

var 
  op:integer;

  np := Edit3.Text;

  Exel := CreateOleObject('Excel.Application'); 
  Exel.Workbooks.Open(out_exl);                
  op:=Exel.ActiveSheet.UsedRange.Rows.Count;    // переменная для поиска

  Exel.Range['D2','D'+IntToStr(op)].select;
  Exel.Selection.Find(np);

  Value := Exel.ActiveSheet.UsedRange.Find(np);
  ShowMessage(Value.Address);
  Exel.Visible := true;

Собственно вот вопрос. Этот код позволяет мне увидеть адрес ячейки по поиску текста, но выдает адрес не входящий в выделенный диапазон. К примеру, мне выдает $C$6
Мне же нужно чтобы поиск производился в диапазоне

Exel.Range['D2','D'+IntToStr(op)].select;

Где я накосячил, подскажите?

[Karabash]

var 
  op:integer;
  np := Edit3.Text;

  Exel := CreateOleObject('Excel.Application'); 
  Exel.Workbooks.Open(out_exl);
  //этот оператор вернет общее количество строк, занятых данными
  op:=Exel.ActiveSheet.UsedRange.Rows.Count; 
  //поэтому следующий оператор может выделит странный диапазон, который не захватит все строки с данными:
  //например, если данные занимают 10 строк, а строка, с которой начинаются данные имеет номер 5, 
  //то выделенный диапазон захватит примерно половину строк с данными
  Exel.Range['D2','D'+IntToStr(op)].select;
  Exel.Selection.Find(np);

  Value := Exel.ActiveSheet.UsedRange.Find(np);
  ShowMessage(Value.Address);
  Exel.Visible := true;

В общем, скорее всего, причина недоумения в неверном определении выделяемого диапазона.
Проверка показала, что при правильном выделении диапазона все работает нормально: символы в ячейках ищутся только в заданном диапазоне.
Обработка ошибки, которая появляется если заданные символы в выделенном диапазоне ячеек не найдены, предоставляется автору.

[iskurt]

Хорошо, привожу пример - делаю эксель видимым, на экране вот что


но адрес найденой ячейки никак не в диапазоне выделенного

[Karabash]

Привожу пример выполнение кода почти без переделок:

[iskurt]

так это просто совпадение.
Попробуй в файле в разных местах раскидать... в начале, в середине и в конце....
Эксель ищет построчно, т.е. А1, В1, С1......
Попробуй впиши в А1 в В1...... цифру 3...

Жду результатов... т.к. мне этот поиск важен и принципиален...
Благодарю за сотрудничество.

PS: вот мой скрин, поиск был цифра восемь - "8"


Вы использовали мой код или писали свой?

[Karabash]

Действительно, в том виде как мы пытались делать, код показывает ячейку вне диапазона.
Пришлось взяться за хирургические инструменты.
Вот что получилось.

uses ComObj, ExcelXP, OleServer;
...
procedure xxxx;
var
  op : integer;
  np : string;
  XL: TExcelApplication;
  R : ExcelRange;
  Adr : string;
begin
  np := Edit3.Text;
  XL := TExcelApplication.Create(nil);
  try
    XL.ConnectKind := ckNewInstance;
    XL.Connect;
    XL.AutoQuit := False;
    XL.Workbooks.Add('C:\test1.xlsx', 0); //здесь имя тестового файла

    op := (XL.ActiveWorkbook.ActiveSheet as _Worksheet).UsedRange[0].Rows.Count;
    R := XL.Range['D2','D'+IntToStr(op)]; //задаем диапазон поиска
    R := R.Find(np, EmptyParam, xlValues, xlPart, xlByRows, xlNext, False, False, EmptyParam);

    if Assigned(R) then begin //если Excel вернул ссылку на объект R, то все в порядке - найдено
      R.Activate; //устанавливает фокус на ячейку с найденным текстом
      Adr := R.Address[True, True, xlA1, EmptyParam, EmptyParam];
      ShowMessage(Adr);
    end;
    XL.Visible[0] := True;
  finally
    XL.UserControl := True;
    XL.Disconnect;
    FreeAndNil(XL);
  end;
end;

Только применение раннего связывания позволило добиться того что требуется.
Наверное можно получить что надо и при использовании позднего связывания, но, как всегда, после того как получился нужный результат уже нет охоты ковыряться дальше.

[iskurt]

ёкарный бабай. Спасибо! Дальше буду развивать сам.... смысл понятен
Вот только вот тут не совсем понятно:

    R := XL.Range['D2','D'+IntToStr(op)]; //задаем диапазон поиска
    R := R.Find(np, EmptyParam, xlValues, xlPart, xlByRows, xlNext, False, False, EmptyParam);

если это у нас XL - то R должно быть Variant, или нет?

[Karabash]

В коде недвусмысленно написано: R : ExcelRange;. ExcelRange - это целый класс со своими многочисленными методами, к которым предоставляется доступ к из программ.
Если R будет Variant, то вызвать метод Find не получится. К тому же, метод Find возвращает значение этого же типа (ExcelRange), но с другими значениями.
Если диапазон поиска заданного в первой строке (код ниже), необходимо сохранить для последующего применения, то диапазон ячеек, который вернет Find нужно присвоить другой переменной:

  ...
  R, RF : ExcelRange;
  ...
    RF := XL.Range['D2','D'+IntToStr(op)]; //задаем диапазон поиска и в следующем операторе он не "затирается".
    R := RF.Find(np, EmptyParam, xlValues, xlPart, xlByRows, xlNext, False, False, EmptyParam);