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

Группировка данных в Excel?   Найти похожие ветки 

← →
Малиновский Владимир   (2003-11-11 14:48) [0]

Давно Вывожу отчеты в Excel. Захотел фичу - группировка строк.

В макросе на VBA все выглядит так:

Rows("24:26").Select
Range("A26").Activate
Selection.Rows.Group

Как из Delphi достучаться до интерфейса Selection?
Или как-то еще запустить Group?

---

← →
Романов Р.В. ©   (2003-11-11 15:08) [1]

Selection это и есть Range по своей сути

---

← →
Малиновский Владимир   (2003-11-11 15:16) [2]

Романов Р.В. © (11.11.03 15:08) [1]
Selection это и есть Range по своей сути

Ну и как, запустить Group для Range?
Подскажите чайнику, оч-чень хочется...

---

← →
Романов Р.В. ©   (2003-11-11 15:26) [3]

В справке по VB написано

---

← →
Малиновский Владимир   (2003-11-11 15:27) [4]

В VB я умею! В Delphi надо!

---

← →
Style ©   (2003-11-11 15:31) [5]

uses
ActiveX, ComObj
.....

var
ExcelApplication: variant;
begin
ExcelApplication := CreateOLEObject("Excel.Application.8");
ExcelApplication.WorkBooks.Add;
ExcelApplication.Visible := true;
ExcelApplication.Range["A10:A20"].Select;
ExcelApplication.Range["A10:A20"].Group;

А чего этот Group делает раз ты знаешь???

---

← →
Малиновский Владимир   (2003-11-11 15:53) [6]

Ну, спасибо. Group - выполняет группировку данных по
строкам/столбцам.
Сделай вот так
ExcelApplication.Range["A10:A20"].Rows.Select;
видишь, кнопка появилась, если нажать на нее - строки сворачиваются.

---

← →
Малиновский Владимир   (2003-11-11 15:54) [7]

Вернее:
ExcelApplication.Range["A10:A20"].Rows.Group;

---

← →
Малиновский Владимир   (2003-11-11 16:03) [8]

Да, вот еще подказали - при работе с TExcelApplication и т.п.:

MyExcelWorkSheet.Range["A10","A15"].Rows.Group(EmptyParam,EmptyParam,EmptyParam,EmptyParam);

Всем спасибо ! Отчеты - просто блеск!

---

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

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



Память: 0.46 MB
Время: 0.025 c