Метод Build Pivot Table в ComExcelDocument_RU

[Art_Tanis]

Добрый день!
Использую метод buildPivotTable

#define.xlDatabase(1)
#define.xlPivotTableVersion10(1)
#define.PivotTableName("PivotTable")
void buildPivotTable(BookMark _sourceBookMark, container _columnFields, container _rowFields, container _dataFields,
                    int _sourceWorkSheet = 1, BookMark _destBookMark = "", int _destWorkSheet = 1)
{
    COM         comWorkBook, comWorkSheet;
    COM         comPivotCaches, comPviotCache;
    COM         comPivotTable, comPivotField;
    COM         comCommandBars, comCommandBar;
    int         iPivotField;
    BookMark    destBookMark;
    ;

    comWorkBook = m_comApplication.activeWorkBook();
    comWorkSheet = this.getWorkSheet(_sourceWorkSheet);

    comPivotCaches = comWorkBook.PivotCaches();
    //xlDatabase means data is in the active workbook
    comPviotCache = comPivotCaches.Add(#xlDatabase, strFmt("%1!%2", comWorkSheet.name(), _sourceBookMark));
    //CreatePivotTable(str Destination (ex. [Книга1].Лист2!R3A1), str Data location, int pivotTableVersion)
    //Empty String as destination means a new WorkSheet will be created
    if (_destBookMark)
    {
        comWorkSheet = this.getWorkSheet(_destWorkSheet);
        destBookMark = strFmt("%1!%2", comWorkSheet.name(), _destBookMark);
    }
    comPivotTable = comPviotCache.CreatePivotTable(destBookMark, strFmt("%1%2", #PivotTableName, _sourceWorkSheet), #xlPivotTableVersion10);

    for (iPivotField = 1; iPivotField <= conlen(_columnFields); iPivotField++)
    {
        comPivotField = comPivotTable.PivotFields(conPeek(_columnFields, iPivotField));
        comPivotField.Orientation(2); //xlColumnField
        comPivotField.Position(iPivotField);
    }
    for (iPivotField = 1; iPivotField <= conlen(_rowFields); iPivotField++)
    {
        comPivotField = comPivotTable.PivotFields(conPeek(_rowFields, iPivotField));
        comPivotField.Orientation(1); //xlRowField
        comPivotField.Position(iPivotField);
    }

    for (iPivotField = 1; iPivotField <= conLen(_dataFields); iPivotField++)
    {
        //AddDataField(PivotField object [, shown name, type of aggregate function ])
        //xlSum = -4157 is default
        comPivotTable.AddDataField(comPivotTable.PivotFields(conPeek(_dataFields, iPivotField)));
    }
    //Hide the PivotTable FieldList
    comWorkBook.ShowPivotTableFieldList(false);

    //Hide the PivotTable CommandBar
    comCommandBars = m_comApplication.CommandBars();
    comCommandBar = comCommandBars.item(#PivotTableName);
    comCommandBar.visible(false);
}

Проблема вот в чем - мне надо последнее поле агрегировать как сумма, но сводная строится как количество. Не пойму как это справить?

[Art_Tanis]

Разобрался! рейндж для построения таблицы был не корректным. А вот еще вопрос! Мне нужен классический вид - как задать чтобы формировалась сразу в класическом виде?

[Player1]

Быть может неправильно понял вас, но в приведенном коде итак не задается формат, а значит "классический" вид

int         _formatPivotTable = #xlReport6;
;
...
    comPivotTable.Format(_formatPivotTable);        //Формат отчета
    comPivotTable.RowGrand(true);                  //Общая сумма по строкам
    comPivotTable.ColumnGrand(true);               //Общая сумма по столбцам
    comPivotTable.MergeLabels(true);                //Объединять ячейки заголовков
    comPivotTable.PrintTitles(true);                //Печать заголовков

[Art_Tanis]

Большое спасибо!
Еще вопрос - как скрыть присвоить SubTotal значение false и посоветуйте что то прочитать для наилучшего понимания по работе с Excel через COM

[Player1]

comPivotField = comPivotTable.PivotFields(conPeek(_rowFields, iPivotField));
comPivotField.Orientation(1); 
comPivotField.Position(iPivotField);
comPivotField.Subtotals(1,false);    //вот так

Насчет почитать не знаю. Считаю самое лучшее если хочется что-то сделать и не знаете как, то запишите макрос и посмотрите как это выглядит на VB, а потом постарайтесь перенести это к себе. Удачи.

[Art_Tanis]

Работает! Большое спасибо! Просто огромное!