Как найти строку в Excel по значению без цикла

     	ЗаголовкиВСтроке1 = "HDR=NO;";

	СтрокаСоединения ="Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " + СокрЛП(пФайл) +" ;Extended Properties=""Excel 8.0;" + ЗаголовкиВСтроке1 + "IMEX=1;""";
	
    Connection = Новый COMОбъект("ADODB.Connection");
    Connection.ConnectionString =  СтрокаСоединения;
	
	
	
    Попытка
        Connection.Open();
    Исключение
        Сообщить ("Проблемы с подключением к Excel" );
		Сообщить(ОписаниеОшибки());
        Возврат Неопределено;
    КонецПопытки;
 
 	
   RS = Новый COMОбъект("ADODB.Recordset");
	
    ТекстЗапроса =
    "SELECT
    |    Лист.*
    |FROM
    |    [" + пЛист + "$] as Лист";
 
    Попытка
        RS.Open(ТекстЗапроса, Connection);
    Исключение
        Сообщить ("Проблемы с выполнением запроса");
        Возврат Неопределено;
    КонецПопытки;
	
   Таблица = Новый ТаблицаЗначений;
 
    Если СтруктураКолонок = Неопределено Тогда
 
        Для Счетчик = 1 По RS.Fields.Count Цикл
            Поле = RS.Fields.Item(Счетчик - 1);
            Колонка = Таблица.Колонки.Добавить("К" + Счетчик, , Поле.Name);
        КонецЦикла;
 
    Иначе
 
        Для каждого КлючИЗначение Из СтруктураКолонок Цикл
            Колонка = Таблица.Колонки.Добавить(КлючИЗначение.Ключ);
        КонецЦикла;
 
    КонецЕсли;
 
    НомерСтроки = 0;
//    КолвоСтрок  = RS.RecordCount;
 
    Пока RS.EOF() = 0 Цикл
 
        НомерСтроки = НомерСтроки + 1;
 
        #Если Клиент Тогда
        Состояние("Чтение файла: " + Формат(НомерСтроки) + " из " + Формат(КолвоСтрок));
		Индикатор.Значение = Индикатор.Значение + 1;
        ОбработкаПрерыванияПользователя();
        #КонецЕсли
 
        Если НомерСтроки < НачСтрока Тогда
            RS.MoveNext();
            Продолжить;
        КонецЕсли;
 
        Если КонСтрока > 0 И НомерСтроки > КонСтрока Тогда
            Прервать;
        КонецЕсли;
 
        НоваяСтрока = Таблица.Добавить();
 
        Если СтруктураКолонок = Неопределено Тогда
 
            Для Счетчик = 1 По RS.Fields.Count Цикл
 
                Поле = RS.Fields.Item(Счетчик - 1);
                НоваяСтрока["К" + Счетчик] = Поле.Value;
 
            КонецЦикла;
 
        Иначе
 
            Для каждого КлючИЗначение Из СтруктураКолонок Цикл
 
                Поле = RS.Fields.Item(КлючИЗначение.Значение - 1);
                НоваяСтрока[КлючИЗначение.Ключ] = Поле.Value;
 
            КонецЦикла;
 
        КонецЕсли;
 
        // Обработка других полей
        RS.MoveNext();
 
    КонецЦикла;
 
    // Завершение работы
 
    RS.Close();
    Connection.Close();