Объединить несколько таб док в один Excel

Форум Программирование Общие вопросы программирования (Dev)

Конфигурации 1cv8 1С:Управление производственным предприятием Платформа 1С v8.3

1. Nastya-chajkovskaya 15.07.19 11:08 Сейчас в теме

Здравствуйте! Может кто подскажет в УПП(обычные формы) как объединить несколько таб.док в один Excel и сохранить, при это сохранить не на каждый лист, а чтобы на одном листе и друг за другом шли. Сейчас есть такой код типовой , как его можно преобразовать

	
	
СоответствиеФорматаРасширению = Новый Соответствие;
	СоответствиеФорматаРасширению.Вставить(ТипФайлаТабличногоДокумента.MXL, "mxl");
	СоответствиеФорматаРасширению.Вставить(ТипФайлаТабличногоДокумента.XLS, "xls");

	Для Каждого Эл Из Стр1.Строки Цикл
			Если Эл.Пом Тогда
				ИмяФайла = ПутьДляВыгрузки + СформироватьИмяФайла(Стр1.Наименование + ". " + Эл.Наименование + "." + СоответствиеФорматаРасширению[ВФормате]);
				Попытка
					Состояние("Сохранение " + ИмяФайла);
					Эл.ТабличныйДокумент.Область().ЦветФона = Новый Цвет();
					Эл.ТабличныйДокумент.Записать(ИмяФайла, ВФормате);
				Исключение
					//Сообщить(ОписаниеОшибки(), СтатусСообщения.Важное);
					ПризнакОшибки = Истина;
				Конецпопытки;
			КонецЕсли;
		КонецЦикла;

Показать

Спасибо

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. user623969_dusa 15.07.19 11:24 Сейчас в теме

(1)
ОбщийТабДок = Новый ТабличныйДокумент;
Для Каждого Эл Из Стр1.Строки Цикл
Если Эл.Пом Тогда
// ИмяФайла = ПутьДляВыгрузки + СформироватьИмяФайла(Стр1.Наименование + ". " + Эл.Наименование + "." + СоответствиеФорматаРасширению[ВФормате]);
// Попытка
// Состояние("Сохранение " + ИмяФайла);
Эл.ТабличныйДокумент.Область().ЦветФона = Новый Цвет();
// Эл.ТабличныйДокумент.Записать()
// Эл.ТабличныйДокумент.Записать();
ОбщийТабДок.Вывести(Эл.ТабличныйДокумент) ;

//не забываем закрыть условия и цикл

//запись в попытке уже общего таб дока
ОбщийТабДок.Записать()

3. Nastya-chajkovskaya 15.07.19 11:59 Сейчас в теме

(2) Спасибо, оказалось все намного проще)

Оставьте свое сообщение

E-mail: