| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Помогите написать команду к Excel. Скрыть промежуточные итоги. [D7, XP]

AV ©   (2012-06-06 11:43:00) 

EA, WB, WS: Variant;
EA := CreateOleObject('Excel.Application');
WB := EA.WorkBooks.Add;
WS := WB.ActiveSheet;
далее создаю и настраиваю сводную таблицу
WB.PivotCaches.Add(
и т.п.
EA.Visible := True;

Таблица есть, показана, все правильно.
Но еще надо убрать промежуточные итоги.

Выделил их, нажал начать запись макроса, убрал, остановил запись, смотрю:

ActiveSheet.PivotTables("ARC").PivotFields("DATE_SYS").Subtotals =
Array(False, False, False, False, False, False, False, False, False, False, False, False)

Требуется что-то типа такого
EA.ActiveSheet.PivotTables('ARC').PivotFields('DATE_SYS').Subtotals := False;
EA.ActiveSheet.PivotTables('ARC').PivotFields('DATE_SYS').visible := False;

---

AV   (2012-06-06 13:43:00) [1]

ну да, пойдет.
Спасибо.

В принципе, Array(False, False, False, False, False, False, False, False, False, False, False, False) поди тоже самое и делает.

---

oldman   (2012-06-06 13:16:00) [2]

Требуется что-то типа такого

Columns(бла-бла-бла).Select
Selection.EntireColumn.Hidden = True

---

Наверх