如何使用obapcube与vba中的数据在数据透视表中创build新的行标签？

我有一个PivotField这将是一个RowField 。 它包含date格式dddd, mmmm dd yyyy可能是string ，因为我无法过滤date.PivotFilters.Add Type:=xlValueIsBetween或.PivotFilters.Add Type:=xlDateBetween等如果你想知道我的旅途得出这个结论，你会在这里find它。

现在我的新计划是创build一个具有Double格式date的新RowLabel ，然后在那里过滤date。

使用下面的代码，它真的很好地将这个long格式转换为double格式，我可以覆盖i.Caption值。 但是.PivotFilters.Add也不能用于这个configuration。

 For Each i In .PivotItems Debug.Print i.Caption 'in Format dddd, mmmm dd yyyy p = i.Caption u = Split(p, ",")(1) Debug.Print CDate(u) 'eg 04/09/2017 i.Caption = CDbl(CDate(u)) 'here should be the new RowLabel which should be filled Next i