Создатель темы 13/02/2025 12:00 пп
создать файл Excel c разбивкой на страницы
13/02/2025 12:00 пп
Для создания файла 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 строк.
- Файл сохраняется по указанному пути.
Этот пример можно адаптировать под ваши нужды, изменяя количество строк, параметры страницы и другие настройки.