Невозможно подключить SlicerCache к сводной таблице (-ам). Ошибка 1004 «Ошибка приложения или объекта» - PullRequest
Новая
       50

Невозможно подключить SlicerCache к сводной таблице (-ам). Ошибка 1004 «Ошибка приложения или объекта»

0 голосов
/ 11 сентября 2018

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

Проблема: мне не удалось подключить слайсеры к сводным таблицам.

После поиска в Google я думаю, что мне нужно использовать функцию "SlicerCache.Pivottables.AddPivotTable", но я не смог заставить ее работать.

Строка ошибки: objSlicerCache.PivotTables.AddPivotTable _ wksPivots.PivotTables(objPT)

Код: 

Dim objSlicerCache  As SlicerCache
Dim objSlicer       As Slicer
Dim objPT           As PivotTable
Dim wksPivots       As Worksheet

' Procedure

Set wksPivots = Workbooks(sDash).Worksheets(sPivots)

For Each objPT In wksPivots.PivotTables
    objPT.PivotCache.Refresh
Next objPT

For Each objSlicerCache In Workbooks(sDash).SlicerCaches
    For Each objPT In wksPivots.PivotTables
        objSlicerCache.PivotTables.AddPivotTable _
            wksPivots.PivotTables(objPT)
    Next
Next

Кстати: я получил эту идею по ссылке ниже. Я не уверен, почему мой не работает

Подключите слайсер к поворотной таблице ll

Обновление: мне не удалось решить эту проблему, поэтому я попробовал другой процесс. Этот новый процесс привел к другой проблеме, которую я опишу здесь: Невозможно подключить слайсер к нескольким сводным таблицам - Ошибка № 424 «Требуется объект»

...