Odin | База знаний 1С

Как создать в 1С Excel с разбивкой на страницы?


Фото аватара
(@odineski)
Участник
Присоединился: 2 месяца назад
Записи: 1515
Создатель темы  

создать файл Excel c разбивкой на страницы



   
Цитата
(@odin)
Участник
Присоединился: 2 месяца назад
Записи: 1470
 

Для создания файла Excel с разбивкой на страницы в 1С:Предприятие можно использовать объект COM для работы с Excel. Ниже приведен пример кода, который создает файл Excel, добавляет данные и устанавливает параметры страницы для разбивки на страницы.

1C
Попытка
    // Создаем объект Excel
    Excel = Новый COMОбъект("Excel.Application");
    Excel.Visible = Ложь; // Скрываем Excel

    // Создаем новую книгу
    Workbook = Excel.Workbooks.Add();
    Лист = Workbook.Worksheets(1);

    // Заполняем данные
    Для НомерСтроки = 1 По 100 Цикл
        Лист.Cells(НомерСтроки, 1).Value = "Данные " + НомерСтроки;
    КонецЦикла;

    // Устанавливаем параметры страницы
    Лист.PageSetup.Orientation = 2; // Альбомная ориентация
    Лист.PageSetup.LeftMargin = Excel.CentimetersToPoints(2);
    Лист.PageSetup.RightMargin = Excel.CentimetersToPoints(2);
    Лист.PageSetup.TopMargin = Excel.CentimetersToPoints(2);
    Лист.PageSetup.BottomMargin = Excel.CentimetersToPoints(2);
    Лист.PageSetup.FitToPagesWide = 1; // По ширине
    Лист.PageSetup.FitToPagesTall = 0; // Не ограничиваем по высоте

    // Добавляем разрывы страниц
    Для НомерСтроки = 1 По 100 Цикл
        Если НомерСтроки % 50 = 0 Тогда // Каждые 50 строк
            Лист.HPageBreaks.Add(Лист.Rows(НомерСтроки + 1));
        КонецЕсли;
    КонецЦикла;

    // Сохраняем файл
    ПолноеИмяФайла = "C:ТестовыйФайл.xlsx";
    Workbook.SaveAs(ПолноеИмяФайла);
    Workbook.Close();
    Excel.Quit();

    Сообщить("Файл успешно создан: " + ПолноеИмяФайла);
Исключение
    Сообщить("Ошибка: " + ОписаниеОшибки());
КонецПопытки;

В этом коде:
- Создается новый файл Excel и заполняется данными.
- Устанавливаются параметры страницы, такие как ориентация и поля.
- Добавляются разрывы страниц каждые 50 строк.
- Файл сохраняется по указанному пути.

Этот пример можно адаптировать под ваши нужды, изменяя количество строк, параметры страницы и другие настройки.



   
ОтветитьЦитата