excel - valor - Tabla de Pivote de Poder-Looping a través de los campos en los filtros de informe

tabla dinamica valores texto

Question

Descargo de responsabilidad : esta pregunta fue publicada en el foro msdn, pero como no recibí ninguna respuesta (sorprendentemente), también estoy publicando aquí. Es posible que desee comprobar ese enlace antes de intentar intentar esta pregunta. No quisiera que pierdas tu tiempo si se publica una solución en ese enlace :)

Problema : quiero averiguar los nombres de los campos en el filtro de informes. Así que estoy buscando RegionCountryName , Cityname y ProductKey . Los filtros de informe son dinámicos y pueden cambiar.

Captura de pantalla :

Qué he intentado : he comprobado cada propiedad de Power Pivot, pero no hay ninguna propiedad que pueda encontrar que me permita recorrer los campos del pivote de potencia.

Incluso he intentado este código, pero aparentemente me da un error en Set pf = pt.PageFields(1)

Sub Sample()
Dim pt As PivotTable, pi As PivotItem, pf As PivotField
Dim lLoop As Long
Set pt = Sheet1.PivotTables(1)
Set pf = pt.PageFields(1)
For Each pi In pf.PivotItems
Debug.Print pi.Name
Next pi
End Sub

Error ScreenShot

Entonces, ¿qué me estoy perdiendo? ¿O hay un enfoque diferente que debería tomar?

EDITAR

Si alguien quiere experimentar con él, el archivo se puede descargar desde AQUÍ Estoy mirando la Hoja de Inventory .

Answer 1

Después de algunas pruebas, parece que puede obtener la lista de campos de filtro de página al enumerar los Campos de gráfico y verificar si el valor de su propiedad de Orientación es igual a XlPageField. Pruebe el siguiente código:

Sub Test()
Dim pt as PivotTable
Dim pf as PivotFields
set pt=Sheets("test").PivotTables(1)
For each pf in pt.PivotFields
If pf.Orientation=xlPageField Then
Debug.Print pf.Name
End If
Next pf
End Sub

Espero que esto ayude

Answer 2

Han pasado más de 2 años desde que se planteó la pregunta original, pero aún no pude encontrar una respuesta satisfactoria ...

PERO encontré una forma de evitarlo :-) También puedes cambiar la tabla de PowerPivot mediante cortadoras.

Usé este código para cambiar el mes seleccionado en mi archivo:

Private Sub SpinButton21_SpinDown()
Dim SC As SlicerCache
Dim SL As SlicerCacheLevel
Dim SI As SlicerItem
Set SC = ActiveWorkbook.SlicerCaches("Slicer_Month4")
Set SL = SC.SlicerCacheLevels(1)
''get the current item number
c = 1
For Each SI In SL.SlicerItems
If SI.Selected = True Then
MONTHindex = c
Exit For
End If
c = c + 1
Next SI
If MONTHindex = 1 Then
MONTHindex = SC.SlicerCacheLevels.Item.Count + 1
End If
SC.VisibleSlicerItemsList = SL.SlicerItems(MONTHindex - 1).Name
End Sub

No soy un profesional, pero espero que ayude.

Answer 3

Si cambia pt.pivotfields a pt.pagefields en la publicación de realce_net, debería ejecutarse. Como dice la referencia de Microsoft, pagefields se introdujo con Office 2013.

 Dim pt As PivotTable
Dim pf As PivotFields
Set pt = Sheets("test").PivotTables(1)
For Each pf In pt.PageFields
If pf.Orientation = xlPageField Then
Debug.Print pf.Name
End If
Next pf