Как закрепить область листа Ecxel?

1. 11.01.21 18:11 Сейчас в теме
Если так сделать, закрепляется только в первом листе файла:
Excel = Новый COMОбъект("Excel.Application"); 
Книга = Excel.WorkBooks.Open(ПутьКФайлу);


Лист1 = Книга.WorkSheets(1);

Лист1.Application.ActiveWindow.SplitRow = 13;
Лист1.Application.ActiveWindow.FreezePanes = 11;

Лист2 = Книга.WorkSheets(2);

Лист2.Application.WorkSheets(2).SplitRow = 13;
Лист2.Application.WorkSheets(2).FreezePanes = 11;

Excel.DisplayAlerts = Ложь;
Попытка
	Книга.SaveAs(ПутьКФайлу);
	Книга.Close();
	Excel.Quit();	
Исключение
	Книга.Close();
	Excel.Quit();
КонецПопытки;
Показать
Найденные решения
3. vv2 12.01.21 08:10 Сейчас в теме
Закрепление проводит не лист, а окно. Нужно переключить текущий Лист:
Excel = Новый COMОбъект("Excel.Application"); 
Книга = Excel.WorkBooks.Open(ПутьКФайлу);


Лист1 = Книга.WorkSheets(1);

Лист1.Application.ActiveWindow.SplitRow = 13;
Лист1.Application.ActiveWindow.FreezePanes = 11;

Лист2 = Книга.WorkSheets(2);

Лист2.Activate 
Лист2.Application.ActiveWindow.SplitRow = 13;
Лист2.Application.ActiveWindow.FreezePanes = 11;

Лист1.Activate

Excel.DisplayAlerts = Ложь;

Попытка
    Книга.SaveAs(ПутьКФайлу);
    Книга.Close();
    Excel.Quit();    
Исключение
    Книга.Close();
    Excel.Quit();
КонецПопытки;
Показать
Остальные ответы
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
2. AnryMc 778 11.01.21 18:26 Сейчас в теме
(1)
А есть разница между ActiveWindow и WorkSheets(2)?
4. user1202776 12.01.21 09:48 Сейчас в теме
(2)нет, все равно закрепляет на первом листе
3. vv2 12.01.21 08:10 Сейчас в теме
Закрепление проводит не лист, а окно. Нужно переключить текущий Лист:
Excel = Новый COMОбъект("Excel.Application"); 
Книга = Excel.WorkBooks.Open(ПутьКФайлу);


Лист1 = Книга.WorkSheets(1);

Лист1.Application.ActiveWindow.SplitRow = 13;
Лист1.Application.ActiveWindow.FreezePanes = 11;

Лист2 = Книга.WorkSheets(2);

Лист2.Activate 
Лист2.Application.ActiveWindow.SplitRow = 13;
Лист2.Application.ActiveWindow.FreezePanes = 11;

Лист1.Activate

Excel.DisplayAlerts = Ложь;

Попытка
    Книга.SaveAs(ПутьКФайлу);
    Книга.Close();
    Excel.Quit();    
Исключение
    Книга.Close();
    Excel.Quit();
КонецПопытки;
Показать
Оставьте свое сообщение
Вопросы с вознаграждением