Текущий архив: 2005.06.14;
Скачать: 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 вся ветка
Текущий архив: 2005.06.14;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.023 c
