Как выгрузить результат Запроса 1С:Предприятие в Excel? Простой способ.
Как выгрузить результат Запроса 1С:Предприятие 8.2 в Excel? Простой способ.
Воспользоваться объектом Табличный документ. Создать его, а потом сохранить в виде файла в формате *.xls
Процедура КакВыгрузитьРезультатЗапросаВExcel() ТабДок=Новый ТабличныйДокумент; Макет = ПолучитьМакет("Макет"); Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | РеализацияТоваровУслугТовары.Номенклатура, | ПРЕДСТАВЛЕНИЕ(РеализацияТоваровУслугТовары.Номенклатура), | РеализацияТоваровУслугТовары.Количество, | РеализацияТоваровУслугТовары.Сумма |ИЗ | Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары |ГДЕ | РеализацияТоваровУслугТовары.Ссылка = &Ссылка"; Запрос.УстановитьПараметр("Ссылка",ВыбДокумент); Результат = Запрос.Выполнить(); ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок"); ОбластьПодвал = Макет.ПолучитьОбласть("Подвал"); ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы"); ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы"); ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали"); ТабДок.Очистить(); ТабДок.Вывести(ОбластьЗаголовок); ТабДок.Вывести(ОбластьШапкаТаблицы); ТабДок.НачатьАвтогруппировкуСтрок(); ВыборкаДетальныеЗаписи = Результат.Выбрать(); Пока ВыборкаДетальныеЗаписи.Следующий() Цикл ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетальныеЗаписи); ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетальныеЗаписи.Уровень()); КонецЦикла; ТабДок.ЗакончитьАвтогруппировкуСтрок(); ТабДок.Вывести(ОбластьПодвалТаблицы); ТабДок.Вывести(ОбластьПодвал); ТабДок.Показать(); ТабДок.Записать("c:\temp\Данные.xls",ТипФайлаТабличногоДокумента.XLS); КонецПроцедуры
Возможно вам интересно:
Табличный документ в 1С:Предприятие 8.0, 8.1, 8.2 – самый простой код?
Как выгрузить результат запроса в текстовой файл?