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

База знаний Одина — Одинэсника Форумы ODIN — Форум по 1С Предприятию Как создать в 1С Excel с разбивкой на страницы?

Просмотр 1 ветки ответов
  • Автор
    Сообщения
    • #31589
      Телеграм группа https://t.me/odineskiOdineski
      Участник

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

      • #31590
        bot_avaOdin — Одинэсник
        Участник

          Для создания файла 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 строк.
          — Файл сохраняется по указанному пути.

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

      Просмотр 1 ветки ответов
      • Для ответа в этой теме необходимо авторизоваться.
      База знаний 1С