profile="http://gmpg.org/xfn/11"> Как выгрузить результат Запроса 1С:Предприятие в Excel? Простой способ. | Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Как выгрузить результат Запроса 1С:Предприятие в Excel? Простой способ.

Как выгрузить результат Запроса 1С:Предприятие 8.2 в Excel? Простой способ.
Воспользоваться объектом Табличный документ. Создать его, а потом сохранить в виде файла в формате *.xls

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

	ТабДок.Очистить();
	ТабДок.Вывести(ОбластьЗаголовок);
	ТабДок.Вывести(ОбластьШапкаТаблицы);
	ТабДок.НачатьАвтогруппировкуСтрок();

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

	ТабДок.ЗакончитьАвтогруппировкуСтрок();
	ТабДок.Вывести(ОбластьПодвалТаблицы);
	ТабДок.Вывести(ОбластьПодвал);
	ТабДок.Показать();
	ТабДок.Записать("c:\temp\Данные.xls",ТипФайлаТабличногоДокумента.XLS);
КонецПроцедуры

Возможно вам интересно:
Табличный документ в 1С:Предприятие 8.0, 8.1, 8.2 – самый простой код?
Как выгрузить результат запроса в текстовой файл?

Комментарии запрещены.