Скачать: CL | DM;

"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;

---

← →
umbra ©   (2006-09-07 16:57) [4]

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

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

---

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c