1С выгрузить в Excel таблицу значений без установленного Excel

Готовые тексты модулей и решений
Ответить
Аватара пользователя
admin
Администратор
Сообщения: 81
Зарегистрирован: 06 июл 2017 09:26

1С выгрузить в Excel таблицу значений без установленного Excel

Сообщение admin » 02 мар 2020 00:52

Код: Выделить всё

	Запрос=Новый Запрос;
	Запрос.Текст="ВЫБРАТЬ
	             |	*
	             |ИЗ
	             |	РегистрСведений.СкидкиНаценкиНоменклатуры.СрезПоследних КАК СкидкиНаценкиНоменклатурыСрезПоследних";
	ТабЗнч = Запрос.Выполнить().Выгрузить();
	ПострПечать = Новый ПостроительОтчета;
	ПострПечать.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТабЗнч);
	ТабДок = Новый ТабличныйДокумент;                  
	ПострПечать.Вывести(ТабДок);
	ТабДок.Записать("C:\test\test.xlsx",ТипФайлаТабличногоДокумента.XLSX);

Ответить

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и 1 гость