Эффективный поиск в Excel

← →
Steplerr © (2006-05-22 13:52) [0]

Для поиска нужного текста в Excel делаю так:

procedure TForm1.Button1Click(Sender: TObject); var vr:olevariant; Rng:range; begin ExcelApplication1.Connect; vr:=GetCurrentDir+"\shablon.xls"; ExcelApplication1.Workbooks.Open(vr,EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,Emp tyParam,1); Rng:=ExcelApplication1.Range["A1","C3"].Find("<type here>",EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyPa ram); ExcelApplication1.Range[Rng,Rng].Value:="<value>"; ExcelApplication1.Workbooks.Close(1); ExcelApplication1.Quit; ExcelApplication1.Disconnect; end;

Но здесь есть недостаток - при поиске задаётся область в которой нужно искать текст, но эта область заранее неизвестна. Может есть функция определения рабочей области или другой метод поиска текста в ячейках?

← →
Сергей М. © (2006-05-22 13:56) [1]

> область заранее неизвестна

Как это не известна ?

А это что

> Range["A1","C3"]

?

← →
Steplerr © (2006-05-22 14:01) [2]

> > область заранее неизвестна
>
>
> Как это не известна ?
>
> А это что
>
>
> > Range["A1","C3"]

Это я написал от балды, а мне нужно определить реальный диапазон.

← →
Сергей М. © (2006-05-22 14:12) [3]

Тогда приводи определение термину "реальный даапазон"

← →
Steplerr © (2006-05-22 14:21) [4]

Реальный диапазон - область в которой реально присутствует текст.

Ну почему ж засада? Магнитофончик выдал это:

Range("A1").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

Эффективный поиск в Excel Найти похожие ветки