Excel PivotTables.AddFields

← →
SLP © (2005-05-26 17:00) [0]

Добрый день!
В Дельфи выполняю запрос - кидаю данные в Excel - создаю сводную таблицу.
Макрос при добавлении полей в сводную таблицу : ActiveSheet.PivotTables("СводнаяТаблица1").AddFields RowFields:=Array( _
"Предприятие", "Объект"), ColumnFields:=Array("Отчет", "Режим")

В дельфи пишу так:
XL.ActiveSheet.PivotTables("СводнаяТаблица1").AddFields(RowFields:=XL.ActiveSheet.PivotTables("СводнаяТаблица1").
AddFields.array("Предприятие","Объект"),ColumnFields:=XL.ActiveSheet.PivotTables("СводнаяТаблица1").AddFields.array("Отч ет","Режим"));

(где XL := CreateOleObject("Excel.Application"))
Ругается на функцию array. Выдается сообщение: invalid variant operation !!!
Кто делал из дельфи сводные таблицы, подскажите пож-та! Искала и в Королевстве и на других форумах - ничего не нашла.

← →
YurikGL © (2005-05-26 17:49) [1]

> SLP © (26.05.05 17:00)

Советую кинуть на форму ExcelWorkSheet и подобные компоненты и через ctrl-пробел поизучать их свойства.

Excel PivotTables.AddFields Найти похожие ветки