Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

"Freeze Panes" Exel

Krants © (2006-09-06 18:12:00)
Подскажите плз, вот написал удобный модуль для вывода отчета с применением 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" с прим. вышеуказаных переменных?

Krants (2006-09-08 10:25:00) [1]
огромный респект, все выходит, надо было просто поставить "Select"...
лучше даже так:

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

umbra (2006-09-07 16:57:00) [2]

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

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

pavel_guzhanov (2006-09-07 14:47:00) [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-07 11:38:00) [4]
не выходит так, чего уже неперепробовал, подстава...

umbra (2006-09-06 19:08:00) [5]
Например, так
Sheet.Activate; XLApp.ActiveWindow.FreezePanes = True;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »