Excel, сводная таблица, проблемы с pivotItem

[bagyr]

Добрый день!

COM pivotTable, pivotField, pivotItem;
...
pivotField = pivotTable.PrivotFiels("Журнал");
pivotItem = pivotField.PivotItems("00871_ПЦ");

После этого значение pivotItem = "PivotItem" VT_DISPATCH, и с pivotItem ничего нельзя сделать.

Set pf = PivotTables(1).PivotFields("Журнал")
Set Pi = pf.PivotItems("00871_ПЦ")
Pi.Visible = True

А этот код в VBA отрабатывает нормально.

Помогите разобраться, как решить эту проблему.