| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как программно сделать закрепленную область в Excel? [Delphi, Windows]
pavel_guzhanov © (2005-09-27 10:52:00)Здравствуйте.
Для вывода данных в отчет использую Excel.
Необходимо закрепить верхнюю строку отчета, чтобы при прокрутке она оставалась на месте.
Делаю так:
var
m_XLApp, Sheet, Colum, Row, Selected:Variant;
begin
// создаём объект Excel
m_XLApp := CreateOleObject('Excel.Application');
m_XLApp.Visible := true;
m_XLApp.WorkBooks.Add(-4167);
m_XLApp.WorkBooks[1].WorkSheets[1].Name := 'Список';
Sheet:=m_XLApp.Workbooks[1].Worksheets['Список'];
Sheet.PageSetup.Orientation:=xlLandscape;
// строки
Row:=m_XLApp.Workbooks[1].Worksheets['Список'].Rows;
//выделяю вторую строку
Selected:=Row.Rows[2].Select;
// вот на этой строке получаю ошибку "Invalid variant operation"
Selected.ActiveWindow.FreezePanes:= True;
Подскажите, как правильно использовать свойство FreezePanes?
Спасибо
pavel_guzhanov (2005-09-28 08:02:00) [1]
Sheet.Activate;
Sheet.Range['C2:C2'].Select;
m_XLApp.ActiveWindow.FreezePanes:= True;
Таким образом закрепил первую строку и два первых столбца
YurikGL (2005-09-27 20:39:00) [2]
> pavel_guzhanov © (27.09.05 11:48) [1]
А как разобрался?
pavel_guzhanov (2005-09-27 11:48:00) [3]Разобрался.
Спасибо всем, кто хотел помочь..
| |
