0
Stella12
03.12.09
✎
12:31
|
Нужно сохранить отчет из 1с 7.7 в эксель и закрепить там первые 3 строки.
Пытаюсь через OLE (сразу говорю, в VBA не сильна).
Макрос выдал мне следующее:
Rows("1:3").Select
ActiveWindow.SplitRow = 3
ActiveWindow.FreezePanes = True
Строки выделить получилось:
НашФайл = обЭксел.Workbooks.Open(Каталог+ФормИмяФайла);
НашЛист = НашФайл.Sheets(1); //Устанавливаем нужный лист
НашЛист.Rows("1:3").Select();
А дальше затык, что за активное окно и как это в 1с прописать?
Через обЭксел.ActiveWindow все работает, но ноль эмоций.
|
|
3
Stella12
03.12.09
✎
12:49
|
Вроде получилось вот так:
обЭксел = СоздатьОбъект("Excel.Application");
НашФайл = обЭксел.Workbooks.Open(Каталог+ФормИмяФайла);
НашЛист = НашФайл.Sheets(1);
обЭксел.ActiveWindow.SplitRow = 4;
обЭксел.ActiveWindow.FreezePanes = 1;
НашФайл.Save();
НашФайл.close();
Не знаю, грамотно ли через ActiveWindow, но работает. True 1с-ка не воспринимает.
|
|