| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Эффективный поиск в Excel [D7, WinXP]
Steplerr © (2006-05-22 13:52:00)Для поиска нужного текста в 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;
Но здесь есть недостаток - при поиске задаётся область в которой нужно искать текст, но эта область заранее неизвестна. Может есть функция определения рабочей области или другой метод поиска текста в ячейках?
evvcom (2006-05-23 08:38:00) [1]Ну почему ж засада? Магнитофончик выдал это:
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Сергей М. (2006-05-22 14:24:00) [2]
> Steplerr © (22.05.06 14:21) [4]
В Excel с этим - "засада"
Steplerr (2006-05-22 14:21:00) [3]Реальный диапазон - область в которой реально присутствует текст.
Сергей М. (2006-05-22 14:12:00) [4]Тогда приводи определение термину "реальный даапазон"
Steplerr (2006-05-22 14:01:00) [5]
> > область заранее неизвестна
>
>
> Как это не известна ?
>
> А это что
>
>
> > Range['A1','C3']
Это я написал от балды, а мне нужно определить реальный диапазон.
Сергей М. (2006-05-22 13:56:00) [6]
> область заранее неизвестна
Как это не известна ?
А это что
> Range['A1','C3']
?
| |
