SlicerItem в PDF - PullRequest
Новая
       13

SlicerItem в PDF

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

Я впервые использую слайсер, и на него указывал предыдущий макрос, созданный некоторыми людьми в моей компании.Это работает для них, но у меня есть проблема со Строкой 4 в моем рабочем листе.Мы пытаемся создать отчеты о тенденциях для различных магазинов в нашей компании.

Мне нужно иметь PDF для каждого магазина.Я могу сохранить один магазин, но с более чем 30 магазинами и подсчетом я бы предпочел автоматизировать это.Я могу удалить ActiveWorkbook.SlicerCaches("Slicer_Store_ID").и макрос запустится, но выдаст только 1 хранилище.

Вот код 

Sub PDF()

Dim sI As SlicerItem

For Each sI In ActiveWorkbook.SlicerCaches("Slicer_Store_ID").SlicerItems

    ActiveWorkbook.SlicerCaches("Slicer_Store_ID").VisibleSlicerItemsList = Array(sI.Name)

nm = Range("B1")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

Filename:="G:\Accounting\Private\DIR Review and Testing\" & nm & "_DIR Trends.pdf", _

Quality:=xlQualityStandard, IncludeDocProperties:=True, _

IgnorePrintAreas:=False, OpenAfterPublish:=False
Next

End Sub
...