C++Builder фильтр по значению в Excel

[karpov007]

Добрый день.
Программа открывает Excel, считывает определенную строку.
Затем нужно произвести поиск данной строки в определенном столбце другого файла эксель.
Впринципе через цикл for(i=0;i<56566;i++), считывание каждой i-ой строки в string1 и сравнение adr1 = string1.Pos(stringsrav); все работает.
Проблема в том что этим способом очень долго.

Как сделать, чтобы сначала накладывался фильтр на этот столбец по наличию там значения stringsrav?


Заранее спасибо за ответы

[FataLL]

Надо просто индекс строки найти? Можно сначала считать весь столбец из экселевского файла, типа

Variant V = xlSheet.OlePropertyGet( "Range", "A1:A56566" ).OlePropertyGet( "Value" );

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

for( int i = 1; i <= 56566; i++ )
{
  AnsiString string1 = V.GetElement( 1, i );
  if( string1.Pos( stringsrav ) )
  {
    // i - искомый индекс 
  }
}

[karpov007]

FataLL спасибо.
Но все равно долго получается..я с количеством строк ошибся, нолик пропустил 565606.
Вообщем сделал макрос на VBA который удовлетворяет моим условиям.

Sub Макрос1()
'
' Макрос1 Макрос
'

'
    Columns("A:K").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets( _
        "Лист1").Range("A1:K2"), CopyToRange:=Columns("L:V"), Unique:=False

End Sub

Теперь вопрос как его запустить из билдера..
Сразу при открытие файла эксель не вариант ибо он ссылается на данные относительно которых будет проводится сортировка, а их надо начала внести(вносятся программо в эксель автоматически).

[FataLL]

Есть такое дело, как OleProcedure...

[karpov007]

Спасибо, запустил.

 app.OleProcedure("Run","Macro4") ;

Но проблема в том что при запуске эксель выдает "Имя не может совпадать со встроенным фильтром _FilterDatabase"
Если переименовать в xls, то все работает.
Проблема в том что при переименовании режется количество строк.
В самом файле такого названия как "_FilterDatabase" по понятным причинам нет.
В диспечере имен excel - "Имена с ошибками" тоже пусто
Что делать?