Сводная таблица

[Art_Tanis]

Добрый день!
Не получается побороть вот этот момент при построении свобной таблицы через COM

Код:

PHP код:

    for (iPivotField = 1; iPivotField <= conlen(["@SYS97724","@HTC259","@HTC260"]); iPivotField++)
    {
        comPivotField = comPivotTable.PivotFields(conPeek(["@SYS97724","@HTC259","@HTC260"], iPivotField));
        comPivotField.Orientation(2); //xlColumnField
        comPivotField.Position(iPivotField);
        comPivotField.Subtotals(1,false);
    }

    for (iPivotField = 1; iPivotField <= conlen(["@SYS4922"]); iPivotField++)
    {
        comPivotField = comPivotTable.PivotFields(conPeek(["@SYS4922"], iPivotField));
        comPivotField.Orientation(1); //xlRowField
        comPivotField.Position(iPivotField);
        comPivotField.Subtotals(1,false);
    }

    for (iPivotField = 1; iPivotField <= conLen(["@SYS97724","@HTC259","@HTC260"]); iPivotField++)
    {
        comPivotTable.AddDataField(comPivotTable.PivotFields(conPeek(["@SYS97724","@HTC259","@HTC260"], iPivotField)));
    } 


В итоге выходит вот так.


А надо вот так.


Подскажите пожалуйста в чем косяк.

[Ivanhoe]

Хорошее обсуждение по ссылке ниже. В т.ч. я там примеры проектов выкладывал
Сводные таблицы и Olap в Dax2009

[Art_Tanis]

Надо добавить ориентацию для DataPivotField
VBA

    Dim objTable As PivotTable, objField As PivotField
    
    ' Select the sheet and first cell of the table that contains the data.
    ActiveWorkbook.Sheets("Employees").Select
    Range("A1").Select
    
    ' Create the PivotTable object based on the Employee data on Sheet1.
    Set objTable = Sheet1.PivotTableWizard
    
    ' Specify row and column fields.
    Set objField = objTable.PivotFields("DEPT")
    objField.Orientation = xlRowField
    Set objField = objTable.PivotFields("LOCATION")
    objField.Orientation = xlColumnField
    
    ' Specify a data field with its summary
    ' function and format.
    Set objField = objTable.PivotFields("SALARY")
    objField.Orientation = xlDataField
    objField.Function = xlSum
    objField.NumberFormat = "$ #,##0"
    
    
           
    Set objField = objTable.PivotFields("RAISE")
    objField.Orientation = xlDataField
    objField.Function = xlSum
    objField.NumberFormat = "$ #,##0"
   

    objTable.DataPivotField.Orientation = xlColumnField

В моем же случае надо в конец добавить строку

    comPivotField = comPivotTable.DataPivotField();
    comPivotField.Orientation(2);

[CHESER85]

Как вариант можно в шаблоне создать какую угодно сводную таблицу, выгрузить исходные данные и потом программно обновить сводную таблицу.