VBA执行高级筛选不成功。求助！

eagle_lkcn

两个文件，第一个文件有个汇总页，第二个文件将汇总页内容按照指定条件进行高级筛选复制到指定页。指定日期筛选成功了，按照月份筛选和其他筛选都失败了，只是复制内容过来了。
向各位大佬大神求助。


Sub 日周报表()
'
' 日周报表 宏
'
    Sheets("日报表").Select
    Cells.Select
    Selection.Clear
    Range("A2").Select
    Path = ThisWorkbook.Path
    Workbooks.Open Filename:= _
    Path & "\" & "违章台账.xlsm", Notify:=False
    Windows("违章台账.xlsm").Activate
    Sheets("汇总").Select
    Workbooks("违章台账.xlsm").Sheets("汇总").Cells.AdvancedFilter Action:=xlFilterCopy _
        , CriteriaRange:=Workbooks("报表生成.xlsm").Sheets("生成").Range("C3:C10"), CopyToRange:=Workbooks("报表生成.xlsm").Sheets("日报表").Range("A9"), _
        Unique:=False
    Workbooks("违章台账.xlsm").Close ture
    Workbooks("报表生成.xlsm").Sheets("日报表").Select
End Sub

这个成功了


Sub 月报表()
'
' 月报表 宏
'
    Sheets("月报表").Select
    Cells.Select
    Selection.Clear
    Range("A2").Select
    Path = ThisWorkbook.Path
    Workbooks.Open Filename:= _
    Path & "\" & "违章台账.xlsm", Notify:=False
    Windows("违章台账.xlsm").Activate
    Sheets("汇总").Select
    Workbooks("违章台账.xlsm").Sheets("汇总").Cells.AdvancedFilter Action:=xlFilterCopy _
        , CriteriaRange:=Workbooks("报表生成.xlsm").Sheets("生成").Range("G3:G9"), CopyToRange:=Workbooks("报表生成.xlsm").Sheets("月报表").Range("A9"), _
        Unique:=False

'  Range("D2:E5").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
'        "E2:E5"), CopyToRange:=Range("A7"), Unique:=False



    Workbooks("违章台账.xlsm").Close ture
    Workbooks("报表生成.xlsm").Sheets("月报表").Select
End Sub


这个失败了

1111豪

在第二个筛选之前加上这个
Workbooks("违章台账.xlsm").Sheets("汇总").Cells.ShowAllData
不知道有没有用，想着之前筛选过了，应该重置一下，不然可能会不成功

eagle_lkcn

自行解决了。是筛选条件里空值填写为0就行了