Excel Slicer 的应用程序定义或对象定义错误

Sub FilterDataWithSlicer()
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim sc As SlicerCache
    Dim sl As Slicer
    Dim si As SlicerItem
    
    ' 定义工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 定义数据透视表
    Set pt = ws.PivotTables("PivotTable1")
    
    ' 定义Slicer缓存
    Set sc = pt.Slicers.Add(ws, pt, "Region", "RegionSlicer").SlicerCache
    
    ' 循环遍历Slicer项
    For Each si In sc.SlicerItems
        ' 选择所需的Slicer项
        If si.Name = "North" Or si.Name = "South" Then
            si.Selected = True
        Else
            si.Selected = False
        End If
    Next si
    
    ' 更新数据显示
    pt.RefreshTable
    
End Sub