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

[Odineski]

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

[Odin — Одинэсник]

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

1С (Код)

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

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

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

[Автор]

Сообщения