如何在用于Excel切片器的多维数据集中查找维度

我正试图找出如何为切片器获取立方体的尺寸。我几乎用尽了一切办法让它工作，但没有成功

下面的代码是我用来让切片器将日期设置为今天的日期的代码

Dim today As Date
today = Now
Dim todayString As String
todayString = Format$(today, "mm/dd/yyyy")
ThisWorkbook.SlicerCaches("Slicer_Created_on").ClearManualFilter
ActiveWorkbook.SlicerCaches("Slicer_Created_on").VisibleSlicerItemsList=
Array( _  
"[Period].[Date].&[" & todayString & "]") ' This is where the error occurs.

上述代码在本网站的以下链接中找到：

我试图修改它，以便

"[Period].[Date].&[" & todayString & "]")

采用以下格式： “[期间]/[日期]/&[”&todayString&“]”）

创建了另外两个维度： 年和月，并修改如下： 阴暗月 月=格式$（今天，“mm”） todaystring=格式$（今天，“dd”） 年份=格式$（今天，“yyyy”）

---

谢谢您的时间。

经过几个小时的修补，我无法确定多维数据集值是什么，因此我使用了本网站上的不同代码

在此链接：

子切片选择今天（）

端接头

编辑： 如果可能的话，避免循环遍历所有日期值，因为这需要更长的时间。我强烈建议您录制一个宏，其中包含希望使用透视表完成的任务，然后根据需要编辑宏。例如，在应用日期过滤器“日期过滤器>昨天”值以仅显示昨天的数据时，记录操作的宏。 类似于我在这个链接中所做的事情。

---

我希望这能帮助一些人。

经过几个小时的修补，我无法确定多维数据集的值是什么，所以我使用了这个网站上的不同代码。

"[Month]/&["& todaystring & "]" & [Year]")

Dim today As Date
today = Now
Dim todayString As String
todayString = Format$(today, "m/d/yyyy") ' I have US date

Dim item As SlicerItem

For Each item In ThisWorkbook.SlicerCaches("Slicer_Date").SlicerItems
    If item.Name = todayString Then
        item.Selected = True
    Else
        item.Selected = False
    End If
Next item

ThisWorkbook.RefreshAll