1С 8.x : Как таблицу значений выгрузить в Excel

 

Процедура ВыгрузкаВЭксель(Т) Экспорт

	Попытка

		XL = Новый COMОбъект ("Excel.Application");

	Исключение

		Сообщить("Ошибка создания Excel.Application");

		Возврат;

	КонецПопытки;

	XL.Visible = 1;

	wb = XL.Workbooks.Add();

	sh = wb.Worksheets.Add();

	Кол = Т.Колонки.Количество();

	Если Кол = 0 Тогда

		Возврат;

	КонецЕсли;             

	Для К = 1 По Кол Цикл

		Заг = Т.Колонки[К-1].Имя;

		sh.Cells(1,К).Font.Name = "Tahoma";

		sh.Cells(1,К).Font.Size = 10;

		sh.Cells(1,К).Font.FontStyle = "Bold";

		sh.Cells(1,К).FormulaR1C1 = Заг;

	КонецЦикла;

	Для Каждого Стр Из Т Цикл

		Для К = 1 По Кол Цикл

			Зн = Стр[К-1];

			sh.Cells(Т.Индекс(Стр)+2, К).FormulaR1C1 = Строка(Зн);

		КонецЦикла;

	КонецЦикла;

	sh.Columns.AutoFit();	

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