在 AHK 语言中使用 COM Autofilter 时遇到问题
Having issues with using COM Autofilter in AHK language
我可以应用自动筛选条件,但筛选的行不可见。但是,如果我转到高级过滤器,并在已应用的过滤器上单击“确定”,则会出现结果。我不知道发生了什么,这是代码。
try xl := ComObjActive("Excel.Application")
catch e
{
xl := ComObjCreate("Excel.Application")
}
wb_YTD := xl.Workbooks.Open(A_Desktop "\R&B YTD.xlsx")
if (WinExist("BnR Weekly Counts"))
wb_bnr := xl.Workbooks.Item("BnR Weekly Counts")
else
wb_bnr := xl.Workbooks.Open(A_Desktop "\BnR Weekly Counts.xlsx")
wb_YTD.Sheets(1).AutoFilter.Range.Autofilter
FormatTime, current_month, YYYYMMDDHH24MISS, M
criteria1 := "> " current_month "/9/" A_Year
criteria2 := "< " current_month "/11/" A_Year
wb_YTD.Sheets(1).Range("$A").AutoFilter(Field := 3,Criteria1 := criteria1, Operator := 1, Criteria2 := criteria2)
这里,第 3 列包含我要筛选的日期,标准 1 > 2/9/2020,标准 2 < 2/11/2020
谢谢!
发现错误,条件“>”中的额外 'space' 导致此错误
工作过滤器代码:
FormatTime, current_month, YYYYMMDDHH24MISS, M ; To store the month count without extra 0
start_date := ">=" current_month "/9/" A_Year
end_date := "<=" current_month "/15/" A_Year
wb_YTD.Sheets(1).Range("A1:F10000").AutoFilter(Field := 3,Criteria1 := start_date, Operator := 1, Criteria2 := end_date)
我可以应用自动筛选条件,但筛选的行不可见。但是,如果我转到高级过滤器,并在已应用的过滤器上单击“确定”,则会出现结果。我不知道发生了什么,这是代码。
try xl := ComObjActive("Excel.Application")
catch e
{
xl := ComObjCreate("Excel.Application")
}
wb_YTD := xl.Workbooks.Open(A_Desktop "\R&B YTD.xlsx")
if (WinExist("BnR Weekly Counts"))
wb_bnr := xl.Workbooks.Item("BnR Weekly Counts")
else
wb_bnr := xl.Workbooks.Open(A_Desktop "\BnR Weekly Counts.xlsx")
wb_YTD.Sheets(1).AutoFilter.Range.Autofilter
FormatTime, current_month, YYYYMMDDHH24MISS, M
criteria1 := "> " current_month "/9/" A_Year
criteria2 := "< " current_month "/11/" A_Year
wb_YTD.Sheets(1).Range("$A").AutoFilter(Field := 3,Criteria1 := criteria1, Operator := 1, Criteria2 := criteria2)
这里,第 3 列包含我要筛选的日期,标准 1 > 2/9/2020,标准 2 < 2/11/2020
谢谢!
发现错误,条件“>”中的额外 'space' 导致此错误
工作过滤器代码:
FormatTime, current_month, YYYYMMDDHH24MISS, M ; To store the month count without extra 0
start_date := ">=" current_month "/9/" A_Year
end_date := "<=" current_month "/15/" A_Year
wb_YTD.Sheets(1).Range("A1:F10000").AutoFilter(Field := 3,Criteria1 := start_date, Operator := 1, Criteria2 := end_date)