Excel VBA -更改透视表的日期筛选器
Excel VBA -更改透视表的日期筛选器
提问于 2016-07-27 23:02:41
我的工作表上有一个数据透视表，并且我正在尝试添加一个日期过滤器：
Private Sub foo()
Dim MyDate
MyDate = #1/27/1993#
Worksheets("Timeline").PivotTables("PivotTable7").PivotFields("EndDateFormatted").PivotFilters.Add Type:=xlBetween, Value1:=MyDate, Value2:=MyDate
End Sub这会导致“无效的过程调用或参数”错误。我做错了什么？
更新: thx luke_t，现在我知道我必须使用xlDateBetween了。现在我的代码看起来像这样：
Private Sub foo()
Dim d As Date
Dim dd As Date
d = DateSerial(2016, 1, 1)
dd = DateSerial(2016, 1, 2)
Worksheets("Timeline").PivotTables("PivotTable7").PivotFields("EndDateFormatted").PivotFilters.Add Type:=xlDateBetween, Value1:=d, Value2:=dd
End Sub现在它显示“您输入的日期不是有效日期”(1004)。
回答 1
Stack Overflow用户
发布于 2016-07-27 23:12:17
您需要将xlDateBetween传递给PivotFilters.Add方法的Type:=参数。
可以传递到Here is a list参数中的常量名称的类型。
使用带有Type:=参数的字符串。见下文。
Private Sub foo()
Dim d As String
d = "01/01/2016"
Worksheets("Timeline").PivotTables("PivotTable7").PivotFields("EndDateFormatted").PivotFilters.Add Type:=xlDateBetween, Value1:=d, Value2:=d
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/38616719
复制相关文章
相似问题
腾讯云开发者
