Скачать: CL | DM;

Эффективный поиск в 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]

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

---

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

> Steplerr ©   (22.05.06 14:21) [4]


В Excel с этим - "засада"

---

← →
evvcom ©   (2006-05-23 08:38) [6]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c