Добрый день господа.

Вопрос:
В Exel-е делается запрос к Olap-кубу:
With ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
.Connection = _
"OLEDB;Provider=MSOLAP.2;Data Source=ts;Initial Catalog=monster2;Client Cache Size=25;Auto Synch Period=10000"
.CommandType = xlCmdCube
.CommandText = "monster2"
.MaintainConnection = True
.CreatePivotTable TableDestination:= _
"[Доходы_себестоимость_Китай_01.xls]Лист1!R3C1", TableName:="СводнаяТаблица1" _
, DefaultVersion:=xlPivotTableVersion10
End With

соответсвенно получаем сводную таблицу со всеми агрегируемыми и неагрегируемыми полями.
вопрос в следующем: как сделать чтобы в список полей попадали не все агрегируемые поля?

тоесть ситуация такова, что в зависимости от того кто открыл книгу Ексель нужно скрывать или наоборот показывать в списке полей некоторые агрегируемые поля..

Всем спасибо, сделал так:
Dim myfield As CubeField
Set myfield = ActiveSheet.PivotTables("СводнаяТаблица2").CubeFields("[Measures].[" & fieldname & "]")
myfield.ShowInFieldList = visibl