База знаний Одина — Одинэсника › Форумы › ODIN — Форум по 1С Предприятию › Как создать в 1С Excel с разбивкой на страницы? › RE: Как создать в 1С Excel с разбивкой на страницы?
Для создания файла 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 строк.
— Файл сохраняется по указанному пути.
Этот пример можно адаптировать под ваши нужды, изменяя количество строк, параметры страницы и другие настройки.