код таков

Процедура Выполнить()    

   //попытка доступа к Excel
 Попытка
       Эксель = СоздатьОбъект("Excel.Application");
       Исключение
           Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!");
       Возврат;
   КонецПопытки;
   
   СпрКонрагенты = СоздатьОбъект("Справочник.Контрагенты");
   ДокПКО        = СоздатьОбъект("Документ.ПриходныйОрдер");
   //Сч                        = СоздатьОбъект("Счет.Основной");
   //заранее создаем ссылку на справочник
   //Открытие файла Excel
   ИмяФайла = "";
   ИмяКаталога = "D:\";    
   
   Если ФС.ВыбратьФайл(0, ИмяФайла, ИмяКаталога,"Укажите файл ПКО:", , 20) = 1 Тогда      
       Книга = Эксель.WorkBooks.Open(ИмяКаталога + ИмяФайла);
       Лист = Книга.WorkSheets(1);
       //Получаем количество строк в книге
     КоличСтрок = Лист.Cells.CurrentRegion.Rows.Count;
       Сообщить(КоличСтрок);
       
       Для Ном = 4 По 4 Цикл
           ДокПКО.Новый();
           ДокПКО.ПринятоОт = СокрЛП(Лист.Cells(Ном, 1).Value);
           
           //корр счет
           КоррСчет = СчетПоКоду(СокрЛП(Лист.Cells(Ном, 3).Value));  
       
           ДокПКО.КоррСчет = КоррСчет;
           
           
           Для А = 1 По 3  Цикл
               ДокПКО.НазначитьТип("Субконто"+А,ДокПКО.КоррСчет.ВидСубконто(А));
           КонецЦикла;  
           
         СпрКонрагенты.НайтиПоНаименованию(СокрЛП(Лист.Cells(Ном, 4).Value));
           Если СпрКонрагенты.Выбран()>1 Тогда
             ДокПКО.Субконто1 = СпрКонрагенты.ТекущийЭлемент();  
           КонецЕсли;
           ДокПКО.Записать();
           ОткрытьФорму(ДокПКО.ТекущийДокумент());
       КонецЦикла;
           
   КонецЕсли;
   //закрыть приложение Excel
   Эксель.Quit();

КонецПроцедуры

вроде все есть и тип субконто назначен, но не работает.

вверх

СпрСсылка = СпрКонрагенты.НайтиПоНаименованию(СокрЛП(Лист.Cells(Ном, 4).Value));
           Если НЕ СпрСсылка.Пустая() Тогда

Сорри! Это v7

Мне и надо v7

ваша СпрСсылка выведет просто единицу и все

Если СпрКонрагенты.НайтиПоНаименованию(СокрЛП(""+Лист.Cells(Ном, 4).Value));
        ДокПКО.Субконто1 = СпрКонрагенты.ТекущийЭлемент();

Пардон!

Если СпрКонрагенты.НайтиПоНаименованию(СокрЛП(""+Лист.Cells(Ном, 4).Value))=1 Тогда
        ДокПКО.Субконто1 = СпрКонрагенты.ТекущийЭлемент();

(0)Это что?
Если СпрКонрагенты.Выбран()>1 Тогда

+(9)Никогда в условие не попадешь...
Если СпрКонрагенты.Выбран()=1 Тогда
или
Если СпрКонрагенты.Выбран()>0 Тогда

BlackSeaCat Спасибо, все заработало