Excel 切片器的应用程序定义或对象定义错误

Question

在课程出勤率的 KPI 仪表板中，我有一个包含课程名称的下拉列表。用户选择一门课程，宏必须 select 切片器（连接到多维数据集）中选择的课程。

当使用宏录制器时，我看到录制器使用一种索引来获取用户想要的课程，而不是名称（在我的示例中为&[18]）：

ActiveWorkbook.SlicerCaches("Slicer_Course2").VisibleSlicerItemsList = Array("[Course].[Course].&[18]")

我想浏览不同的切片器项目，并且仅 select 与我的下拉列表中的用户选择相对应的项目，但基于课程名称。例如，如果用户选择课程 "Introduction To Slicer":

Sub TestSclicer()
Dim i

ActiveWorkbook.SlicerCaches("Slicer_Courses2").ClearManualFilter

For i = 1 To ActiveWorkbook.SlicerCaches("Slicer_Courses2").SlicerItems.Count
     If ActiveWorkbook.SlicerCaches("Slicer_Courses2").SlicerItems(i).Name = "Introduction To Slicer" Then
        ActiveWorkbook.SlicerCaches("Slicer_Courses2").SlicerItems(i).Selected = True
    Else
        ActiveWorkbook.SlicerCaches("Slicer_Courses2").SlicerItems(i).Selected = False
    End If
Next
End Sub

它在 ActiveWorkbook.SlicerCaches("Slicer_Courses2").SlicerItems.Count 上出现错误消息

application-defined of object-defined error

Answer 1

好的，我认为你不能根据这个 reference.

直接从 SlicerCaches 获取 SlicerItems

所以，你出错了。这是我的建议，尝试如下：

Sub TestSclicer()

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

Set sC = ActiveWorkbook.SlicerCaches("Slicer_Courses2")

sC.ClearManualFilter

For index = 1 To sC.SlicerCacheLevels.count

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

        If sI.Name = "Introduction To Slicer" Then
            sI.Selected = True
        Else
            sI.Selected = False
        End If

    Next sI

Next index 

End Sub

Excel 切片器的应用程序定义或对象定义错误

Application-defined or object-defined error with Excel Slicer

excel

vba

powerpivot