1
Maximysis
27.06.14
✎
10:05
|
есть только на ёкселе
Процедура ВыполнитьСохранение (ИмяВременногоФайла)
гТаблица.Записать (ИмяВременногоФайла);
Документ = СоздатьОбъект ("ТабличныйДокумент");
Документ.Открыть (ИмяВременногоФайла);
КоличествоСтрок = Документ.ВысотаТаблицы ();
ИмяЛиста = "Лист ";
НомерЛиста = 1;
Конвертер = СоздатьОбъект ("КонвертерExcel");
Книга = Конвертер.Создать ();
Начало = 1;
Пока КоличествоСтрок > 0 Цикл
Документ = СоздатьОбъект ("ТабличныйДокумент");
Документ.Открыть (ИмяВременногоФайла);
Если Начало = 0 Тогда
Документ.УдалитьСтроки (1, 65536);
Документ.Записать (ИмяВременногоФайла);
Иначе
Начало = 0;
КонецЕсли;
Книга.Листы.Добавить (ИмяЛиста + НомерЛиста, Документ);
КоличествоСтрокВДокументе = Документ.ВысотаТаблицы ();
ЗаписаноСтрок = Мин (65536, КоличествоСтрокВДокументе);
КоличествоСтрок = КоличествоСтрок - Мин (КоличествоСтрок, ЗаписаноСтрок); // на всякий случай
НомерЛиста = НомерЛиста + 1;
КонецЦикла;
Книга.ПараметрыКонвертера.РаспознаватьЧисловыеЗначения = 1;
Если ПробелВТриадах=0 Тогда
Книга.ПараметрыКонвертера.ЧисловыеРазделители = ",.";
КонецЕсли;
Книга.Записать (глПрофильПользователя+"\Desktop\"+СокрЛП(ВыбИмяФайла)+".xls");
КонецПроцедуры //ВыполнитьСохранение(ИмяВременногоФайла)
|
|