Скачать: CL | DM;

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-пробел поизучать их свойства.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c