Срезы модели данных Excel, «Ошибка приложения или объекта» - PullRequest
Новая
       10

Срезы модели данных Excel, «Ошибка приложения или объекта»

0 голосов
/ 27 ноября 2018

Я написал макрос, который помещает имена переменных в словарь (называемый Occs), а затем пытается выбрать эти имена в слайсере.Кажется, есть одна строка, в которой я ошибся: 

Sub Macro4()

Dim Occs As New Dictionary
Occs.Add "001", "001"
Occs.Add "002", "002"

Dim sC As SlicerCache
Dim sI As SlicerItem
Dim index As Integer

Set sC = ActiveWorkbook.SlicerCaches("Slicer_Occupation_Code1")

sC.ClearManualFilter

For index = 1 To sC.SlicerCacheLevels.Count

    For Each sI In sC.SlicerCacheLevels(index).SlicerItems

        sI.Selected = Occs.Exists(sI.Caption)

    Next sI

Next index

End Sub

Там написано "1004: ошибка приложения или объекта" в строке, которая должна фактически выбирать элементы, если они 're в словаре Occs: 

sI.Selected = Occs.Exists(sI.Caption)

Какой должна быть эта строка?Любая помощь с благодарностью.

...