请教高手，关于VBA 的难题。

方世玉

在不使用 日程表的 基础上，想让 数据透视表 在筛选 日期的时候，开始日期为 C1 单元格 日期，结束日期为 C2单元格日期，该如何编写 VBA呢？
我录制的宏代码如下：
Sub 查看日期内数据() '原始代码

ActiveSheet.PivotTables("数据透视表1").PivotFields("日期").PivotFilters.Add Type:= _
xlDateBetween, Value1:="2018/5/5", Value2:="2018/6/5"
End Sub

我改了 这段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

请高手看一下，是修改之后，是哪里不对。
跪谢了。

方世玉

附件在 2楼。

duquancai

方世玉 发表于 2018-7-8 11:57
附件在 2楼。

进来学习难题，mark一下。

山菊花

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

方世玉

山菊花 发表于 2018-7-8 13:51
Sub 查看日期内数据2() '修改之后的宏
    X = Format(Sheet4.Range("C1").Value, "yyyy/m/d")
    Y = F ...

我运行的时候，提示： 运行时错误 “445”
                               对象不支持该动作

方世玉

山菊花 发表于 2018-7-8 13:51
Sub 查看日期内数据2() '修改之后的宏
    X = Format(Sheet4.Range("C1").Value, "yyyy/m/d")
    Y = F ...

请问是 原因呢？

山菊花

原因不清楚。试试4楼附件，看是否可以运行。

lenghonghai601

1. Sub test()
   
2. Dim cnn As Object, t1 As Date, t2 As Date
   
3. Set cnn = CreateObject("adodb.connection")
   
4. t1 = Worksheets("统计").Range("c1"): t2 = Worksheets("统计").Range("c2")
   
5. cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
   
6. mysql = "select 日期,名称,sum(数量) from [Sheet2$] where 日期 between #" & t1 & "# and #" & t2 & "# group by 日期,名称 order by 名称 desc"
   
7. Worksheets("统计").Range("b3").CopyFromRecordset cnn.Execute(mysql)
   
8. cnn.Close
   
9. End Sub

复制代码