#PivotTable Кол-во элементов в поле Сводной

[Player1]

Собственно в Сводной таблице есть поле "Дата", в нем все варианты дней месяца из исходных данных. Нужно получить сколько их.

    comPivotField = comPivotTable.PivotFields("Дата");
    comPivotItems = comPivotField.PivotItems();
    //comPivotItem = comPivotItems.PivotItems("04.12.2013");
    //comPivotItem = comPivotItems.PivotItems(1);
    //info(strfmt("%1", comPivotItems.Count()));

Что в комментах - не отрабатывает

[Ruff]

Попробуйте так:

comPivotItems   = COM::createFromVariant(comPivotField.PivotItems());
    info(strfmt("%1", comPivotItems.Count()));

см. также Помогите: COM и VT_DISPATCH

[Player1]

Задачу усложнили
Нужно то же самое кол-во элементов в выпадающем списке поля сводной, но средствами Excel (для формулы). Быть может кто подскажет как? Пока копаю в сторону "ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ(".
Также если есть возможность хотелось бы получить значение первого и последнего элементов списка (первая и последняя дата)

[Ruff]

Через "ПОЛУЧИТЬ.ДАННЫЕ..." вряд ли получится в общем случае. В частных случаях (которые сильно зависят от структуры исходных данных и измерений) - чисто гипотетически (я не проверял) можно поиграться добавлением в сводную таблицу дополнительных вычисляемых полей, которые придется отображать в области данных (что, на мой взгляд, криво).

Поэтому, имхо, проще пойти "в лоб" - через UDF (User Defined Function). Создаете в VBA функцию примерно такого содержания:

PHP код:

Public Function PivotFieldCount(pivotTableName As String, _
                                fieldName As String, _
                                Optional sheetName As String) As Integer
    Dim sheet As Worksheet
    Dim pivot As PivotTable
    Dim field As PivotField
    
    If sheetName = "" Then
        Set sheet = ActiveSheet
    Else
        Set sheet = Worksheets(sheetName)
    End If
    
    Set pivot = sheet.PivotTables(pivotTableName)
    Set field = pivot.PivotFields(fieldName)
    PivotFieldCount = field.PivotItems.Count
    
End Function 


И вставляете в нужной ячейке соответствующий вызов:

=PivotFieldCount("СводнаяТаблица1";"Дата";"Лист4")

Значения первого и последнего элемента - по аналогии, или даже стандартными формулами =МИН(), =МАКС() по исходному диапазону.

Небольшое замечание: будьте внимательны с подсчетом значений в поле сводной. Если данные в исходном диапазоне редактируются или удаляются, то даже после обновления сводной таблицы в ней останутся "закэшированными" удаленные даты. Они не будут отображаться, но будут храниться где-то внутри, как возможные значения поля, соответственно влияя на подсчет элементов.