Текущий архив: 2006.07.02;
Скачать: 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 вся ветка
Текущий архив: 2006.07.02;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.037 c
