Задава диапазон за AutoFilter на класически XLS и прилага критерий за поле в едно извикване
Синтаксис
procedure ApplyAutoFilter(ARange: WideString; Field: Integer; Criteria1: Variant); overload;
procedure ApplyAutoFilter(ARange: WideString; Field: Integer; Criteria1: Variant; Operator: XlAutoFilterOperator; Criteria2: Variant); overload;
procedure ApplyAutoFilter(ARow1, ACol1, ARow2, ACol2: Integer; Field: Integer; Criteria1: Variant); overload;
procedure ApplyAutoFilter(ARow1, ACol1, ARow2, ACol2: Integer; Field: Integer; Criteria1: Variant; Operator: XlAutoFilterOperator; Criteria2: Variant); overload;
Забележки
Претоварването с низ приема диапазон в стил A1, например A1:C5. Числовото претоварване използва едноиндексирани редове и колони. Field е едноиндексиран в рамките на диапазона AutoFilter
ApplyAutoFilter заменя съществуващия диапазон AutoFilter на ниво работен лист с подадения диапазон, след което записва BIFF8 критерии за поле, същите като IXLSRange.Autofilter
Използвайте TXLSWorksheet.AutoFilterColumns за преглед на критериите след прилагане или четене на AutoFilter
Пример
Workbook := TXLSWorkbook.Create;
try
Sheet := Workbook.Sheets[1];
Sheet.ApplyAutoFilter('A1:C5', 2, '>=100');
Workbook.SaveAs('filtered.xls', xlExcel97);
finally
Workbook.Free;
end;
Вижте също