Вход | Регистрация
 
1С:Предприятие :: 1С:Предприятие 8 общая

Как в Excel правильно копировать листы.

Как в Excel правильно копировать листы.
Я
   Креатив
 
29.09.20 - 21:10
Наваял работающий код. Однако мне нужно, чтобы листы шли в обратном порядке (добавлялись справа). Чтобы рез.xls перезаписывался без вопросов.
И названия были не TDSheet(число), а просто число. А ещё, чтобы пользователь видел, какая остановка обрабатывается.
    Excel = Новый COMОбъект("Excel.Application");
    Книга = Excel.Workbooks.Add();
    Для Каждого рез Из Результат Цикл
        Лист = Книга.Sheets.Add();
        Лист.Name = рез.Остановка;
        Объект.тОстановка = рез.Остановка;
        Объект.тТранспорт = рез.Транспорт;
        Для Каждого ПФ Из СформироватьПечатнуюФормуИзТабличногоДокумента() Цикл    
            ПечатнаяФорма = Пф.Значение;
            ПечатнаяФорма.Записать(Папка + "\временный.xls", ТипФайлаТабличногоДокумента.XLS97);
            ПечатнаяФорма = "";
            Книга2 = Excel.Workbooks.Open(Папка + "\временный.xls");
            Лист2 = Книга2.ActiveSheet;
            Лист2.Copy(Книга.ActiveSheet);
            Книга2.Close();
        КонецЦикла;
    КонецЦикла;
    Книга.SaveAs(Папка + "\рез.xls");
    Excel = "";

Список тем форума
Рекламное место пустует  Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.