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

Слово Funсtion зарезервировано в дельфи. Как быть?   Найти похожие ветки 

← →
Nurik   (2004-10-16 18:49) [0]

Выполняется следующий код:
   ExcelApp := CreateOleObject("Excel.Application");
   ExcelApp.WorkBooks.Add(1);
   ExcelApp.WorkBooks[1].WorkSheets[1].Name := "Лист";
..............................
   pt:=ExcelApp.Workbooks[1].ActiveSheet.PivotTableWizard
       (SourceType :=1, SourceData:="Лист!A1:J10",
       TableDestination:="", TableName:="сводная1");
   pt.AddFields (RowFields:="Region");
   pt.PivotFields("Town").Orientation := 4;
   pt.PivotFields("Town").Function := 1;
и на последней строчке происходит ошибка. Думаю что слово Funсtion зарезервировано. Как выйти из положения?
Нашел функции OlePropertyGet и OlePropertySet но они не работают.

---

← →
Cobalt ©   (2004-10-17 01:01) [1]

> но они не работают.

Да ну? И чё, прям сразу синий экран?

---

← →
Poirot ©   (2004-10-17 12:10) [2]

:)))
Эсли откопилялось без ошибок, то тут функтион совершенно не причём:) mind.drv :)))))

---

← →
Nurik   (2004-10-27 11:09) [3]

Неужели никто еще не дошел до сводных таблиц?

---

← →
sergeyyy71   (2004-10-29 08:37) [4]

Почему не дошел? Дошел...
А что за агрегатная функция скрывается за цифрой 1?

Вобще все, что ты написал можно отладить и оно будет работать. Но я сам предпочитаю использовать экселевские шаблоны, в том числе для сводных таблиц. Меньше кода - меньше ошибок.

---

← →
Nurik   (2004-10-29 22:14) [5]

Все дошел ошибка-то лежала на поверхности,
вместо 1 надо было использовать -4112
А я зациклился на слове Function. оно у меня почему-то жирным выделяется и все.
Ну и начал в инете копать.
Во всем виновато выделение слова Fucntion жирным цветом.

Спс за подсказку.
Заметил что народ на данном форуме видит ошибку, но не хочет об этом говорить.

---

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

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



Память: 0.46 MB
Время: 0.035 c