Поиск в Excel

[Tirendus]

Не могу использовать поиск через Delphi 7 в Excel 2007. При попытке выполнить такой кусок кода:

workbooks[1].WorkSheets[1].Range['a1:a900'].Find(
What:=range,
LookIn := xlValues,
SearchOrder:=xlByColumns,
SearchDirection := xlNext);

Компилятор пишет, что не знает что это xlValues, xlByColumns, xlNext.
Во всех примерах, которые я находил, люди уже использовали эти значения, мой делфи, почему-то, не хочет.

Думал, что поиск можно легко заменить парочкой циклов, но программа выполняется где-то минут 10, а это не дело.

Подскажите пожалуйста, как сделать так, что бы заработали эти значения (xlValues, xlByColumns, xlNext)?

И где тут "БД в Delphi" ?
Переношу в общие вопросы.

[lexaltd]

Добавь в uses - ExcelXP или Excel2000 точно не помню

[Stilet]

Во всех примерах, которые я находил, люди уже использовали эти значения,

Видимо люди подключали COM сервер Экзеля через CreateOleObject, или действительно пользовались компонентами из вкладки Servers, где есть фичи работы с MS OFFICE.
Набери в поиске CreateOleObject('Excel.Application' );
И посмотришь как подключают.

[Tirendus]

Сообщение от lexaltd

Добавь в uses - ExcelXP или Excel2000 точно не помню

Супер, большое спасибо

Stilet
XL:= CreateOLEObject('Excel.Application' );

Я таким методом пользуюсь, но всё равно спасибо

Есть еще вопрос по теме.

bla:= XL.workbooks[1].worksheets[1].range['a1:b950'].find(
      What:='SX1',
      LookIn:=xlValues,
      SearchOrder:=xlByColumns,
      SearchDirection:=xlNext);

Вот таким методом нашел значение, а как узнать адрес ячейки, в которой оно находится?


Решено

      VarClear(bla);
      bla:= XL.workbooks[1].worksheets[1].range['a1:b950'].find(
      What:='SX1',
      LookIn:=xlValues,
      SearchOrder:=xlByColumns,
      SearchDirection:=xlNext);
      Showmessage(bla);

      if not VarIsEmpty(bla) then Firstaddress:=bla.address;
      showmessage(inttostr(bla.column));

      showmessage(firstaddress);