Сохранить в exel

Функция Печать() Экспорт 
Эксель = ПолучитьCOMОбъект("", "Excel.Application");
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("ИНФО");
Область = Макет.ПолучитьОбласть("ПервыйЛист");
Область.Параметры.Организация = СсылкаНаОбъект.Организация;
Область.Параметры.ИНН = СсылкаНаОбъект.Организация.ИНН;
Область.Параметры.РС = СсылкаНаОбъект.Банк.ОсновнойБанковскийСчет.НомерСчета;
Область.Параметры.ДатаФайла = ДатаРеестра;
ТабДок.Вывести(Область);
ТабДок.Записать("C:\1c\1.xls","xls");
 Эксель.DisplayAlerts = 0; //Не выводить предупреждения Excel
Книга = Эксель.WorkBooks.Open("C:\1c\1.xls");

Макет1 = ПолучитьМакет("Реестр");
Область = Макет1.ПолучитьОбласть("Шапка");
Область.Параметры.НомерРеестра = НомерРеестра;
Область.Параметры.Организация = СсылкаНаОбъект.Организация;
Область.Параметры.Номер = НомерПлатежногоПоручения;
Область.Параметры.Дата = Формат(ДатаРеестра,"ДЛФ=DD");
ТабДок.Вывести(Область);
Область = Макет1.ПолучитьОбласть("ЛицевыеСчета");
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
		               |	ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо.Наименование КАК Физлицо,
		               |	ЗарплатаКВыплатеОрганизацийЗарплата.Сумма,
		               |	ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо.ДатаРождения КАК ДатаРождения,
		               |	ЛицевыеСчетаРаботниковОрганизации.НомерЛицевогоСчета
		               |ИЗ
		               |	РегистрСведений.ЛицевыеСчетаРаботниковОрганизации КАК ЛицевыеСчетаРаботниковОрганизации
		               |		ЛЕВОЕ СОЕДИНЕНИЕ Документ.ЗарплатаКВыплатеОрганизаций.Зарплата КАК ЗарплатаКВыплатеОрганизацийЗарплата
		               |		ПО (ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо.Ссылка = ЛицевыеСчетаРаботниковОрганизации.ФизЛицо.Ссылка)
		               |ГДЕ
		               |	ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка.Ссылка = &Ссылка
		               |	И ЛицевыеСчетаРаботниковОрганизации.Банк = &Банк
		               |
		               |СГРУППИРОВАТЬ ПО
		               |	ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо.ДатаРождения,
		               |	ЛицевыеСчетаРаботниковОрганизации.НомерЛицевогоСчета,
		               |	ЗарплатаКВыплатеОрганизацийЗарплата.Сумма,
		               |	ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо.Наименование
		               |
		               |УПОРЯДОЧИТЬ ПО
		               |	Физлицо";
					   	Запрос.УстановитьПараметр("Ссылка" , СсылкаНаОбъект);
		Запрос.УстановитьПараметр("Банк", СсылкаНаОбъект.Банк);
		ВЫборка = Запрос.Выполнить().Выбрать();
		Пока Выборка.Следующий() Цикл
			ФИО = ОбщегоНазначенияЗК.РазложитьСтрокуВМассивПодстрок(Выборка.Физлицо, " ");
			Область.Параметры.Фио = ФИО[0]+ " "+ФИО[1] +" "+ФИО[2];;
			Область.Параметры.ЛицевСчет = Выборка.НомерЛицевогоСчета;
			Область.Параметры.Сумма = Формат(Выборка.Сумма,"ЧДЦ=2");
			ТабДок.Вывести(Область);
		КонецЦикла;
		ТабДок.Записать("C:\1c\2.xls","xls");
		Книга1 = Эксель.WorkBooks.Open("C:\1c\2.xls");
		Макет2 = ПолучитьМакет("Payments");
		Область = Макет2.ПолучитьОбласть("ТретийЛист");
			Пока Выборка.Следующий() Цикл
			
			Область.Параметры.НомерСчета = Выборка.НомерЛицевогоСчета;
			Область.Параметры.Сумма = Формат(Выборка.Сумма,"ЧДЦ=2");
			ТабДок.Вывести(Область);
		КонецЦикла;
		ТабДок.Записать("C:\1c\3.xls","xls");
		Книга2 = Эксель.WorkBooks.Open("C:\1c\3.xls");
		
		
		
	Файл = Эксель.Workbooks.Add(); 
	Лист = Файл.WorkSheets.Add();
    Лист =  Книга.Copy;
	КонецФункции