helpf.pro
Регистрация

v7: Быстрое сохранение таблиц (mxl) в формате Excel (xls)

Ponomarenko
14.12.2011 12:25Прочитано: 4326
Здравствуйте. Подскажите как можно сохранить отчет в уже существующий файл ХL другим листом. Например есть документ Проба.XLS , в нем уже существует Лист 1, следующую таблицу нужно сохранить в этот же файл, но в лист 2
Код в 1С комплексной ред. 7.7
Процедура ВыполнитьСохранение (ИмяВременногоФайла)
гТаблица.Записать (ИмяВременногоФайла);
КоличествоСтрок = гТаблица.ВысотаТаблицы ();

ИмяЛиста = "Лист ";
//НомерЛиста = 1;

Конвертер = СоздатьОбъект ("КонвертерExcel");
Книга = Конвертер.Создать ();
сообщить(Книга.Листы);
Начало = 1;
Пока КоличествоСтрок > 0 Цикл
Документ = СоздатьОбъект ("ТабличныйДокумент");
Документ.Открыть (ИмяВременногоФайла);
Если Начало = 0 Тогда
Документ.УдалитьСтроки (1, 65536);
Документ.Записать (ИмяВременногоФайла);
Иначе
Начало = 0;
КонецЕсли;
Листы = Книга.Листы;

Листы.Добавить (ИмяЛиста + НомерЛиста, Документ);
КоличествоСтрокВДокументе = Документ.ВысотаТаблицы ();
ЗаписаноСтрок = Мин (65536, КоличествоСтрокВДокументе);
КоличествоСтрок = КоличествоСтрок - Мин (КоличествоСтрок, ЗаписаноСтрок); // на всякий случай
НомерЛиста = НомерЛиста + 1;
КонецЦикла;

Книга.ПараметрыКонвертера.РаспознаватьЧисловыеЗначения = 1;
Книга.Записать (ВыбИмяФайла);
КонецПроцедуры
Yandex
Возможно, вас также заинтересует
Реклама на портале
ad82117
14.12.2011 16:48Ответ № 1
Лист = Книга.WorkSheets(НомерЛиста) - выбор рабочего листа
Лист = Книга.Sheets.Add() - добавить новый лист
Подсказка: Щелкнув по значку (справа от названия вопроса), вы получите список ответов на похожие вопросы!
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.