Для Стр=1 По КолСтрок Цикл
Номер=СокрЛП(ОкноЕхсеl.Cells(Стр,3).Value);
Если (СпрНом.НайтиПоРеквизиту("Номер",Номер,1)=1) И (ПустоеЗначение(Номер)=0) Тогда
НайденНомер=СпрНом.ТекущийЭлемент();
НайденНомер.Наименование=СокрЛП(ОкноЕхсеl.Cells(Стр,2).Value);
КонецЕсли;
КонецЦикла;
Если (СпрНом.НайтиПоРеквизиту("Номер",Номер,1)=1) И (ПустоеЗначение(Номер)=0) Тогда
//НайденНомер=СпрНом.ТекущийЭлемент();
//НайденНомер.Наименование=СокрЛП(ОкноЕхсеl.Cells(Стр,2).Value);
СпрНом.Наименование=СокрЛП(ОкноЕхсеl.Cells(Стр,2).Value);
СпрНом.Записать();
КонецЕсли;
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс