Текущий архив: 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.44 MB
Время: 0.074 c
