VBA中数据透视表切片器异常：无法通过名称引用SlicerCache

1. 修正参数类型声明 #

你的peer_wrk参数未指定类型（仅写ByVal peer_wrk），VBA会默认将其视为Variant类型，可能导致对象引用解析异常。修改参数声明为明确的工作簿类型：

Sub SetSlicers(ByVal peer_wrk As Workbook, ByVal slic_name As String, ByVal slic_condition As Variant)

2. 排查名称匹配问题 #

即便Debug.Print显示名称一致，也可能存在肉眼不可见的前后空格、全角/半角字符差异。可以在循环中直接匹配并赋值，绕过手动输入的名称误差：

For Each sl_box In peer_wrk.SlicerCaches
    ' 打印名称长度，对比传入参数的长度，排查隐藏空格
    Debug.Print "缓存名称：" & sl_box.Name, "长度：" & Len(sl_box.Name)
    If Trim(UCase(sl_box.Name)) = Trim(UCase(slic_name)) Then
        Set sl_box = peer_wrk.SlicerCaches(sl_box.Name)
        Exit For
    End If
Next

3. 适配Power Pivot数据模型切片器 #

如果切片器基于Power Pivot数据模型创建，其缓存名称会自动添加前缀（如切片器_+字段名），直接用切片器显示名称索引会失败。可以通过切片器对象反向获取缓存：

Dim sl As Slicer
For Each sl In peer_wrk.Slicers
    If sl.Name = slic_name Then
        Set sl_box = sl.SlicerCache
        Exit For
    End If
Next

4. 加入错误捕获定位问题 #

添加错误处理代码，明确报错原因：

On Error Resume Next
Set sl_box = peer_wrk.SlicerCaches(slic_name)
If Err.Number <> 0 Then
    MsgBox "无法找到目标切片器缓存：" & slic_name & vbCrLf & _
           "错误代码：" & Err.Number & vbCrLf & Err.Description
    On Error GoTo 0
    Exit Sub
End If
On Error GoTo 0

内容的提问来源于stack exchange，提问作者krakowi