помогите с Ole Excel

Подскажите, работавшие с Excel. Мне нужно добавить вычисляемые поля в свод. табл.
Че не так:
Код VBA:
ActiveSheet.PivotTables("Отчет").CalculatedFields.Add "Сумма", _
"= price* kol"
Мой код:
pv=Sh.OlePropertyGet("PivotTables","Отчет");
y=pv.OlePropertyGet("CalculatedFields");//здесь ошибка: "член группы не найден"
y.OleFunction("Add","Сумма","=price*kol");
Я бьюсь уже 2 часа. Не понятно, ведь по сути CalculatedFields - это такая же группа объектов, как например Workbooks - те же 2 метода: Add и Item
Мож кто работал с вычисляемыми полями?? Поскажите че...