Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

Помогите написать команду к Excel. Скрыть промежуточные итоги.   Найти похожие ветки 

 
AV ©   (2012-06-06 11:43) [0]

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;


 
oldman ©   (2012-06-06 13:16) [1]

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

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


 
AV ©   (2012-06-06 13:43) [2]

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

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



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

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.206 c
15-1353949627
dummy_user
2012-11-26 21:07
2013.03.22
Отследить движение человека на камере.


2-1348491706
Дениска
2012-09-24 17:01
2013.03.22
Кеширующий HTTP прокси сервер на основе IndyHTTPProxyServer


15-1333895122
Юрий Зотов
2012-04-08 18:25
2013.03.22
Пропали иконки


15-1342899092
без имени
2012-07-21 23:31
2013.03.22
Настройка в Delphi 7


15-1346788263
AV
2012-09-04 23:51
2013.03.22
Запретить пользоваться сайтами, кроме явно разрешенных