"Freeze Panes" Exel

← →
Krants (2006-09-06 18:12) [0]

Подскажите плз, вот написал удобный модуль для вывода отчета с применением Exel, вот только для завершения хочется написать нормальную функцию форматирования документа. Во всем разобрался с помошью макросов, только вот функцию ActiveWindow.FreezePanes = True не могу перекинуть в паскаль. Сам документ создаю и далее обрабатываю таким образом:

XLApp,Sheet:Variant;
....
XLApp:= CreateOleObject("Excel.Application");
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:=WorkSheetsName;
Sheet:=XLApp.Workbooks[1].WorkSheets[WorkSheetsName];
.........

Подскажите как можно применить "Freeze Panes" с прим. вышеуказаных переменных?

← →
umbra © (2006-09-06 19:08) [1]

Например, так
Sheet.Activate; XLApp.ActiveWindow.FreezePanes = True;

← →
Krants (2006-09-07 11:38) [2]

не выходит так, чего уже неперепробовал, подстава...

← →
pavel_guzhanov © (2006-09-07 14:47) [3]

// создаём объект Excel
m_XLApp := CreateOleObject("Excel.Application");
// добавляем рабочую книгу
m_XLApp.WorkBooks.Add(-4167);
// добавляем рабочий лист
m_XLApp.WorkBooks[1].WorkSheets[1].Name := "Лист1";
// присваиваем этот лист переменной
Sheet:=m_XLApp.Workbooks[1].Worksheets["Лист1"];
// Закрепляем области на листе
Sheet.Activate;
Sheet.Range["C2:C2"].Select;
m_XLApp.ActiveWindow.FreezePanes:= True;

> не выходит так,

не выходит что? чего добиться то надо?

← →
Krants (2006-09-08 10:25) [5]

огромный респект, все выходит, надо было просто поставить "Select"...
лучше даже так:

Sheet.Cells[2,1].Select;
XLApp.ActiveWindow.FreezePanes:=True;

"Freeze Panes" Exel Найти похожие ветки