Док = ПолучитьCOMОбъект(Путь + "ценыконкурентов.xls"); 
КоличествоСтраниц = 2; 
Для ТекНомер = 1 По КоличествоСтраниц Цикл 
    Контрагент = Док.Sheets(ТекНомер).Cells(1,1).Value; 
    Товар = Док.Sheets(ТекНомер).Cells(2,2).Value; 
 Цена = Док.Sheets(ТекНомер).Cells(2,3).Value; 
  счСтроки = 3; 
       Сообщить(Строка(Товар) + "-" + Строка(Цена)); 
    Пока СокрЛП(Товар) <> "" Цикл // можно использовать другой признак окончания данных на листе 
               Товар = Док.Sheets(ТекНомер).Cells(СчСтроки,2).Value; 
               Цена = Док.Sheets(ТекНомер).Cells(СчСтроки,3).Value; 
                Сообщить(Строка(Товар) + "-" + Строка(Цена)); 
            счСтроки = счСтроки + 1; 
       КонецЦикла; 
КонецЦикла; 
Док.Application.Quit();