ТекстЗап="
|Период с (НачГода(ТекущаяДата())) по (КонГода(ТекущаяДата()));
|_Прод = Справочник.Выгрузка.Наименование;
|Условие(_Прод.Код = ТекКодП); //
|";//}}ЗАПРОС
Если ЗапПрод.Выполнить(ТекстЗап)=0 Тогда
Предупреждение("Не могу выполнить запрос на продукцию");
СтатусВозврата(0);
Возврат;
КонецЕсли;
СпПрод .Сортировать();
Пока ЗапПрод.Группировка("_Прод") = 1 Цикл //Канал для плана
Если СпПрод.НайтиЗначение(ЗапПрод._Прод)=0 Тогда
СпПрод.ДобавитьЗначение(ЗапПрод._Прод);
КонецЕсли;
КонецЦикла;
Для k=1 По СпПрод.РазмерСписка() Цикл
_Прод = СпПрод.ПолучитьЗначение(k);
КонецЦикла;
ДокЗаг.Продукция = _Прод;
...
ДокЗаг.Записать();
ДокЗаг.Провести();

|_Прод = Справочник.Выгрузка.Наименование;
|_Код = Справочник.Выгрузка.Код;
|Условие(_Код = ТекКод);
|Группировка _Прод;

...
Для Ст=3 По Ширина Цикл //проверяем количество каналов в файле Excel
ТекКодК=СокрЛП(Область.Cells(1,Ст).Text);
Если (СпКан.НайтиПоКоду(ТекКодК,)=1) И ((Область.Cells(1,Ст).Text)<>"") Тогда
ДокЗаг = СоздатьОбъект("Документ.Загрузка");
ДокЗаг.Новый();
ТекстЗап="
|Период с (НачГода(ТекущаяДата())) по (КонГода(ТекущаяДата()));
|_Канал = Справочник.Каналы.ТекущийЭлемент;
|Условие(_Канал.Код = ТекКодК);
|Группировка _Канал;
|";//}}ЗАПРОС
...
ДокЗаг.Канал = _Канал;
Для Стр=2 По Высота Цикл
ТекКодП=СокрЛП(Область.Cells(Стр,1).Text);
Если СпВыг.НайтиПоКоду(ТекКодП,)=0 Тогда
Сообщить("Не найдена продукция по коду: "+ТекКодП,"!");
Продолжить;
КонецЕсли;
ТекКол=Число(Область.Cells(Стр,сч1).Text);
ТекЦена=Число(Область.Cells(Стр,сч2).Text);

Если (ТекКол>0) ИЛИ (ТекКол<>"") Тогда
ДокЗаг.НоваяСтрока();
ТекстЗап="
|Период с (НачГода(ТекущаяДата())) по (КонГода(ТекущаяДата()));
|_Прод = Справочник.Выгрузка.ТекущийЭлемент;
|Условие(_Прод.Код = ТекКодП); //
|Группировка _Прод;
|";//}}ЗАПРОС
...
ДокЗаг.УстановитьАтрибут("Кол",ТекКол);
ДокЗаг.УстановитьАтрибут("Цена",ТекЦена);
Попытка
ДокЗаг.Записать();
ДокЗаг.Провести();
Исключение;
Сообщить("Ошибка записи: "+ОписаниеОшибки(),"!");
КонецПопытки;
...

Прайс=СоздатьОбъект("Excel.Application");
Попытка
Прайс.Application.Workbooks.Open(СокрЛП(Файл));
Исключение
Предупреждение("Ненайден файл!",20);
СтатусВозврата(0);
КонецПопытки;

СпКан = СоздатьОбъект("Справочник.Каналы");
ДокЗаг = СоздатьОбъект("Документ.Загрузка");

Для Ст=3 По Ширина Цикл
Если ПустоеЗначение(Строка(Прайс.ActiveSheet.Cells(1,Ст).Value))=1 Тогда
Продолжить;
КонецЕсли;
Если СпКан.НайтиПоКоду(СокрЛП(Прайс.ActiveSheet.Cells(1,Ст).Value))=0 Тогда
Сообщить("блабалабала","!!!");
Продолжить;
КонецЕсли;
//Кстати надо еще уточнить код числовой или тестовый и подчиненный справочник или нет!!!
ДогЗаг.Новый();
ДогЗаг.Канал = СпКан.ТекущийЭлемент();
Для Стр=2 По Высота Цикл

Если СпВыг.НайтиПоКоду(СокрЛП(Прайс.ActiveSheet.Cells(Стр,1).Value))=0 Тогда
Сообщить("Не найдена продукция по коду: "+СокрЛП(Прайс.ActiveSheet.Cells(Стр,1).Value),"!");
Продолжить;
КонецЕсли;

Если Число(Прайс.ActiveSheet.Cells(Стр,Ст).Value)=0 Тогда
Продолжить;
КонецЕсли;
ДогЗаг.НоваяСтрока();
ДогЗаг.Товар = СпВыг.ТекущийЭлемент();
ДогЗаг.Кол = Число(Прайс.ActiveSheet.Cells(Стр,Ст).Value);
ДогЗаг.Цена= Число(Прайс.ActiveSheet.Cells(Стр,Ст+1).Value);
КонецЦикла;
Если ДогЗаг.КоличествоСтрок()>0 Тогда
ДогЗаг.Записать();
Попытка
ДогЗаг.Провести();
Исключение
Сообщить(""+ОписаниеОшибки());
КонецПопытки;
КонецЕсли;
КонецЦикла;
//закрыть файл
флагцикла = 0;
СтрК = СокрЛП(Файл);
Пока флагцикла = 0 Цикл
ПозСим = Найти(СтрК,"\");
Если ПозСим = 0 Тогда
флагцикла = 1;
Иначе
СтрК = Сред(СтрК,ПозСим+1);
КонецЕсли;
КонецЦикла;
Прайс.Windows(СтрК).Close(0);