Получение дочерних элементов в PivotTable

[KL (XL)]

Да, но к PowerPivot вы подключаетесь с помощью OLEDB:

OLEDB;
Provider=MSOLAP.4;
Persist Security Info=True;
Initial Catalog=Microsoft_SQLServer_AnalysisServices;
Data Source=$Embedded$;
MDX Compatibility=1;
Safety Options=2;
MDX Missing Member Mode=Error;
Optimize Response=3;
Cell Error Mode=TextValue

SELECT 
   NON EMPTY Hierarchize({DrilldownLevel({[Магазины].[КодМагазина].[All]},,,
      INCLUDE_CALC_MEMBERS)}) DIMENSION PROPERTIES PARENT_UNIQUE_NAME,
   HIERARCHY_UNIQUE_NAME ON COLUMNS , 
   NON EMPTY Hierarchize(DrilldownMember(DrilldownMember(
   CrossJoin({[Продукты].[Производитель].[All],
   [Продукты].[Производитель].[Производитель].AllMembers}, 
   {([Дата].[Дата].[All],[Продажи].[Код].[All])}), 
   [Продукты].[Производитель].[Производитель].AllMembers, [Дата].[Дата]), 
   [Дата].[Дата].[Дата].AllMembers, [Продажи].[Код])) 
   DIMENSION PROPERTIES PARENT_UNIQUE_NAME,HIERARCHY_UNIQUE_NAME 
   ON ROWS  
FROM 
   [Sandbox] 
WHERE 
   ([Measures].[Сумма Сумма]) CELL PROPERTIES VALUE, 
   FORMAT_STRING, LANGUAGE, BACK_COLOR, FORE_COLOR, FONT_FLAGS

Что мешает проделать похожее через VBA только с запросами попроще

[motorway]

Насколько я понял, ваш пример выводит в Msgbox все значения для строк с уровнем вложенности, большим чем у текущей ячейки. При этом выводятся и значения для элементов, которые не относятся к текущему, как Child'ы. Да, пока было достаточно быстро, но выводились значения для всех строк, которые даже не являются вложенными в текущую ячейку (может, так вы и задумывали), ну и выводятся не коды, а сами значения. Впрочем, это не так важно, при необходимости можно разобраться. В принципе, можно сравнить и с моим примером по скорости.

[motorway]

Что мешает проделать похожее через VBA только с запросами попроще

Ну если реально как-то через VBA сделать запрос к OLAP и получить для текущей ячейки все вложенные элементы на самом глубоком уровне (ключи), то я буду только рад, только я пока не настолько разбираюсь в программных запросах к OLAP, чтобы понять, как это сделать (чтобы еще было без вывода в таблицу, т.к. это долго занимает по времени). А вы?

[KL (XL)]

Сообщение от motorway

Насколько я понял, ваш пример выводит в Msgbox все значения для строк с уровнем вложенности, большим чем у текущей ячейки. При этом выводятся и значения для элементов, которые не относятся к текущему, как Child'ы. Да, пока было достаточно быстро, но выводились значения для всех строк, которые даже не являются вложенными в текущую ячейку (может, так вы и задумывали), ну и выводятся не коды, а сами значения. Впрочем, это не так важно, при необходимости можно разобраться. В принципе, можно сравнить и с моим примером по скорости.

Не совсем - пример выводит в Msgbox все значения для строк с последним уровнем вложенности. И да, я почему-то решил, что нужны значения, но это легко поправить.
Насчет "выводятся и значения для элементов, которые не относятся к текущему", мы наверное опять работаем с разными таблицами. Я писал код для картинки в первом посте (см.вложение), а универсальность надо еще дорабатывать.

[KL (XL)]

Сообщение от motorway

Ну если реально как-то через VBA сделать запрос к OLAP и получить для текущей ячейки все вложенные элементы на самом глубоком уровне (ключи), то я буду только рад, только я пока не настолько разбираюсь в программных запросах к OLAP, чтобы понять, как это сделать (чтобы еще было без вывода в таблицу, т.к. это долго занимает по времени). А вы?

То, что реально делать запросы, - это несомненно, а остальное - это полноценная работа, требующая, помимо знаний и желания, времени и возможности подключения к источнику :-)
Вот тут есть кое-что про ADO:
http://www.erlandsendata.no/english/...php?t=envbadac
http://office.microsoft.com/en-au/ac...006252688.aspx

[motorway]

В вашем новом примере для ячейки J22 выводятся почему-то еще и данные, уже относящиеся к России, хотя Бразилия и Россия находятся на одинаковых уровнях вложенности, так что в сумму слагаемые из России не должны входить.
Мне главное было понять принцип, как можно быстро получать эти значения. Остальную работу, конечно, придется делать самому, но вот принципиально узнать, какой способ нужно использовать, чтобы хотя бы при миллионе строк эти значения не доставались очень долго. То, что вы предлагаете, это, видимо, запросы с помощью SQL? Понятно, что с помощью них достать нужные данные реально, но смысл использования PowerPivot состоит в ускорении этих запросов. Может, как раз в случае если надо достать именно большое количество данных, надо использовать SQL (хотя почему?)?
По крайней мере, суммарное значение продаж, например, появляется очень быстро - значит ли это, что миллион чисел складывается быстро, а вот если надо достать их ID, то это уже долго по каким-то причинам получается?

[motorway]

Да, и еще проблема в том, что если свернуть группу значений, то это все уже не работает. А если бы можно было обращаться к объекту, в котором все эти значения содержатся, такого бы не было

[motorway]

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

[KL (XL)]

Сообщение от motorway

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

Sub Test()
    Dim pt As PivotTable
    Set pt = ActiveSheet.PivotTables(1)
    With pt.CubeFields(3)     'либо .CubeFields ("[Query1].[MyField]")
        .Orientation = xlRowField
        .Position = 1
    End With
End Sub

[motorway]

Спасибо за помощь. А можно аналогично удалить заданное поле из той же области?