选择多个切片器项目（错误1004）

Question

我有一个包含所有星期数字的切片器，我想选择一个星期范围（第1周到当前周）。为此，我编写了以下代码：

Dim SL as SlicerCacheLevel
Dim SI as SlicerItem
Dim Week as Integer
Week = Range("B1")
For Each SL In ActiveWorkbook.SlicerCaches("Slicer_Week").SlicerCacheLevels
  For Each SI In SL.SlicerItems
    If SI.Value < week + 1 Then
        SI.Selected = True
    Else
        SI.Selected = False
    End If
  Next
Next

运行此代码时，我得到一个

错误（1004）。

当我将SI.select更改为MsgBox(SI.Value)时，它将为我提供切片器中的所有值。

有人可以向我解释如何解决此错误吗？