Иснользование Subtotals для PivotFields
От: Koloto  
Дата: 27.02.03 07:50
Оценка:
Не подскажите, как корректно вызывать метод Subtotals объекта PivotField в Excel? В VB он вызывается просто, например:

ActiveSheet.PivotTables("MyPivotTable").PivotFields("MyPivotField").Subtotals = _
Array(False, False, True, True, False, False, False, False, False, False, False, False)

или

ActiveSheet.PivotTables("MyPivotTable").PivotFields("MyPivotField").Subtotals(3) = False

В Билдере для работы с Excelем использую объекты, описанные в "Excel_97.h" и "Excel_97_srvr.h". Там этот метод описан так:

TVariant /*[VT_VARIANT:0]*/ __fastcall Subtotals(TVariantInParam Index /*[in,opt]*/= TNoParam())
{
_TDispID _dispid(/* Subtotals */ DISPID(733));
TAutoArgs<1> _args;
_args[1] = Index /*[VT_VARIANT:0]*/;
OleFunction(_dispid, _args);
return _args.GetRetVariant();
}

Ума не приложу, как записать код, аналогичный вышеприведенному VB-коду, на Сях. Присваивать значение методу? Так этот метод метод мне даже ничего не возвращает — при любых мыслимых значениях входного параметра возвращает 0 при конвертации в числовые типы и пустую строку при конвертации в строковые.
Помогите, плз...
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.