Выгрузка табдока в excel

Процедура ВыгрузитьШаблон(ВхСтрокаКонтрагент)
	
Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	ВариантыИсполнения.Владелец КАК Номенклатура,
		|	ВариантыИсполнения.Ссылка КАК ВИ
		|ИЗ
		|	Справочник.ВариантыИсполнения КАК ВариантыИсполнения
		|ГДЕ
		|	ВариантыИсполнения.ПометкаУдаления = ЛОЖЬ
		|	И ВариантыИсполнения.Владелец.ПометкаУдаления = ЛОЖЬ
		|	И ВариантыИсполнения.Владелец В ИЕРАРХИИ(&Номенклатура)
		|	И ВариантыИсполнения.Активность
		|	И ВариантыИсполнения.Владелец.Активность
		|	И ВариантыИсполнения.ТипВИ = ЗНАЧЕНИЕ(Перечисление.ТипыВариантовИсполнения.Стандартный)
		|
		|СГРУППИРОВАТЬ ПО
		|	ВариантыИсполнения.Владелец,
		|	ВариантыИсполнения.Ссылка
		|ИТОГИ ПО
		|	Номенклатура ИЕРАРХИЯ
		|АВТОУПОРЯДОЧИВАНИЕ";
  		 Запрос.УстановитьПараметр("Номенклатура", НоменклатураИерархия.ВыгрузитьЗначения());	
		
	   ВыборкаДетали = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);    
    
    ТабДок = Новый ТабличныйДокумент;
        
    Макет = ПолучитьМакет("Макет");
    ОбластьШапка = Макет.ПолучитьОбласть("Шапка");
    ОбластьСтрока = Макет.ПолучитьОбласть("Тело");
	струк=Новый Структура;
	струк.Вставить("Код",ВхСтрокаКонтрагент.Контрагент.Код);
	струк.Вставить("Наименование",ВхСтрокаКонтрагент.Контрагент.Наименование);	
	струк.Вставить("Адрес",ВхСтрокаКонтрагент.Контрагент.Адрес);
	ОбластьШапка.Параметры.Заполнить(струк);
	 ТабДок.Вывести(ОбластьШапка);

	    ТабДок.НачатьАвтогруппировкуСтрок();
	

   РекурсивныйВыводСтрок(ТабДок,ОбластьСтрока,ВыборкаДетали);
    ТабДок.ЗакончитьАвтогруппировкуСтрок();
	       	    ТабДок.Показать();
    //ТабДок.Записать("C:\Users\User\Desktop\1.xls", ТипФайлаТабличногоДокумента.XLS); 

КонецПроцедуры
Процедура РекурсивныйВыводСтрок(ТабДок, ОбластьСтрока, ВыборкаДетали)   
	Если НЕ глПустоеЗначение(ВыборкаДетали.ВИ) Тогда
		_Дополнительно = Новый Структура;
				_Дополнительно.Вставить("ВариантИсполнения",ВыборкаДетали.ВИ);
				_Дополнительно.Вставить("ЕдИзм",ВыборкаДетали.Номенклатура.БазоваяЕдИзм);
				_ШК = глСформироватьВнутреннийШтрихкод(ВыборкаДетали.Номенклатура,_Дополнительно);
				ОбластьСтрока.Параметры.Заполнить(_ШК);
		Пока ВыборкаДетали.Следующий() Цикл
		  _Дополнительно = Новый Структура;
				_Дополнительно.Вставить("ВариантИсполнения",ВыборкаДетали.ВИ);
				_Дополнительно.Вставить("ЕдИзм",ВыборкаДетали.Номенклатура.БазоваяЕдИзм);
				_ШК = глСформироватьВнутреннийШтрихкод(ВыборкаДетали.Номенклатура,_Дополнительно);
				
		         ОбластьСтрока.Параметры.Заполнить(_ШК);

				
	КонецЦикла;
	КонецЕсли;		
				
	Пока ВыборкаДетали.Следующий() Цикл
		 
        ЗаполнитьЗначенияСвойств(ОбластьСтрока.Параметры, ВыборкаДетали);
        ТабДок.Вывести(ОбластьСтрока, ВыборкаДетали.Уровень());
        ВыборкаРезультат = ВыборкаДетали.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
        РекурсивныйВыводСтрок(ТабДок, ОбластьСтрока, ВыборкаРезультат);
		
	КонецЦикла;
	
КонецПроцедуры