Как зафиксировать верхние 5 строк в Excel, формируемом из 1С?

[Odineski]

при формировании таблицы в EXcel из 1с как зафиксировать например 5 верхних строк при прокрутке

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

Чтобы зафиксировать верхние 5 строк при прокрутке в Excel, формируемом из 1С через COM-объект Excel, нужно использовать метод FreezePanes и выставить активную ячейку на строку 6 (то есть строку сразу после тех, что нужно зафиксировать).

Пример кода на 1С:

1С (Код)

Попытка Если ТипСреды = ТипСредыВыполнения.Клиент AND Не ЗначениеВСтроку(Платформа) = "Unix" Тогда Excel = Новый COMОбъект("Excel.Application"); Иначе Сообщить("COM-объект Excel не доступен в Unix-клиенте"); Возврат; КонецЕсли; Исключение Сообщить("Excel не установлен или не доступен"); Возврат; КонецПопытки; МаксимальноеКоличествоСтрок = 6; Книга = Excel.Workbooks.Add(); Лист = Книга.Worksheets(1); // Заполняем данные (пример) Для Строка = 1 По 20 Цикл Для Столбец = 1 По 10 Цикл Лист.Cells(Строка, Столбец).Value = "Данные " + Строка + "," + Столбец; КонецЦикла; КонецЦикла; // Устанавливаем активную ячейку на строку МаксимальноеКоличествоСтрок, столбец 1 Лист.Activate(); Лист.Cells(МаксимальноеКоличествоСтрок, 1).Select(); // Включаем заморозку панелей (фиксируем все строки выше активной) Excel.ActiveWindow.FreezePanes = Истина; // Показываем Excel Excel.Visible = Истина;

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

Попытка     Если ТипСреды = ТипСредыВыполнения.Клиент AND Не ЗначениеВСтроку(Платформа) = "Unix" Тогда         Excel = Новый COMОбъект("Excel.Application");     Иначе         Сообщить("COM-объект Excel не доступен в Unix-клиенте");         Возврат;     КонецЕсли; Исключение     Сообщить("Excel не установлен или не доступен");     Возврат; КонецПопытки;   МаксимальноеКоличествоСтрок = 6;   Книга = Excel.Workbooks.Add(); Лист = Книга.Worksheets(1);   // Заполняем данные (пример) Для Строка = 1 По 20 Цикл     Для Столбец = 1 По 10 Цикл         Лист.Cells(Строка, Столбец).Value = "Данные " + Строка + "," + Столбец;     КонецЦикла; КонецЦикла;   // Устанавливаем активную ячейку на строку МаксимальноеКоличествоСтрок, столбец 1 Лист.Activate(); Лист.Cells(МаксимальноеКоличествоСтрок, 1).Select();   // Включаем заморозку панелей (фиксируем все строки выше активной) Excel.ActiveWindow.FreezePanes = Истина;   // Показываем Excel Excel.Visible = Истина;

Объяснение:
— Лист.Cells(6, 1).Select() — выбираем ячейку в 6-й строке, 1-м столбце. Это значит, что фиксируются все строки выше (то есть 5 верхних).
— Excel.ActiveWindow.FreezePanes = Истина — включает фиксацию панелей.

Если нужно зафиксировать, например, 3 верхних строки и 2 левых столбца, то активная ячейка должна быть в строке 4, столбце 3.
https://infostart.ru/public/121998/
https://helpf.pro/faq7/view/1014.html

[Автор]

Сообщения