Сводная таблица Excel 2016 подключена к значениям фильтра куба SSAS - PullRequest
Новая
       8

Сводная таблица Excel 2016 подключена к значениям фильтра куба SSAS

0 голосов
/ 17 октября 2018

У меня есть таблица Excel с сводной таблицей, подключенная к кубу MS SSAS.Я пытаюсь перебрать все значения в поле фильтра, чтобы скопировать их в отдельный отчет электронной таблицы (1 BY 1 по типу учетной записи).Проблема заключается в попытке перебрать значения фильтра.Я могу сделать это с помощью сводной таблицы, извлекающей данные из диапазона электронных таблиц, но когда я присоединяю куб, он идет вниз.Какие-либо предложения?

Вот как это выглядит до сих пор из нескольких сообщений на нескольких форумах: 

Sub CreateFilesByAnalyticsFilter()

Dim pt As PivotTable, pi As PivotItem
Dim lLoop As Long, wbNew As Workbook
Dim Field As PivotField
Dim SalesGroup As String, tint As Integer

Set pt = Worksheets("NWS-AnalyticsConnection").PivotTables("TheNWSPivot")
Set Field = pt.PivotFields("[GL Account].[Account Type].[Account Type]")

'Tried this to pull at least the currently selected filter that is     associated to a range called "AcctTypeFilter"
SalesGroup = Worksheets("NWS-AnalyticsConnection").Range("AcctTypeFilter")

MsgBox (SalesGroup)

'Get the count of the items in the pivot field-- the pivot field named is a filter
tint = ActiveSheet.PivotTables("TheNWSPivot").PivotFields("[GL Account].[Account Type].[Account Type]").PivotItems.Count

'yields 0-- I'd expect 7 from the dropdown for that particular filter
MsgBox (Str(tint))

'... Loop through each of the filter values to set the single value, refresh the report and do the rest of the save offs


End Sub

Я полагаю, что если я смогу получить количество элементов в фильтре, ябыть в состоянии схватить каждого (надеюсь, это не ошибочное мышление).

Любая помощь будет принята с благодарностью !!!

...