Excel PivotTables.AddFields [D7]
SLP © (2005-05-26 17:00:00)
Добрый день!
В Дельфи выполняю запрос - кидаю данные в 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:00) [1]
> SLP © (26.05.05 17:00)
Советую кинуть на форму ExcelWorkSheet и подобные компоненты
и через ctrl-пробел поизучать их свойства.
Наверх 
ЧАТ |
Орешник |
|
