от
Все это в re: на VBA в Excel. Я ищу перебрав тесак отбора и печати PDF-файлов. мой код работает для стандартных пивотов, но это не работает при использовании его на PowerPivot, которая является то, что я ищу. Может кто-нибудь пролить свет на то, как повернуть ниже, так что он работает в PowerPivot? (делитель от источника данных PowerPivot)
Option Explicit

Sub ExportPDFs()

Dim sI As SlicerItem, sI2 As SlicerItem, sc As SlicerCache
Dim fname$

Set sc = ActiveWorkbook.SlicerCaches("Slicer_Date")

With sc

    For Each sI In sc.SlicerItems
        If sI.HasData = True Then

        sc.ClearManualFilter

        For Each sI2 In sc.SlicerItems
            If sI.Name = sI2.Name Then sI2.Selected = True Else: sI2.Selected = False
        Next

        Debug.Print sI.Name
        fname = sI.Caption

Ваш ответ

Отображаемое имя (по желанию):
Конфиденциальность: Ваш электронный адрес будет использоваться только для отправки уведомлений.
Анти-спам проверка:
Чтобы избежать проверки в будущем, пожалуйста войдите или зарегистрируйтесь.
Добро пожаловать на сайт ByNets, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...