请教高手，关于数据透视表 选择日期的VBA

方世玉

在不使用 日程表的 基础上，想让 数据透视表 在筛选 日期的时候，开始日期为 C1 单元格 日期，结束日期为 C2单元格日期，该如何编写 VBA呢？

我改的 这段VBA ，运行的时候提示：无效的日期值

Sub 查看日期内数据2()     '修改之后的宏
X = Sheet4.Range("C1")
Y = Sheet4.Range("C2")
    ActiveSheet.PivotTables("数据透视表1").PivotFields("日期").PivotFilters.Add Type:= _
        xlDateBetween, Value1:=X, Value2:=Y
End Sub

请高手帮忙修改一下。