Workbook := TXLSWorkbook.Create; try Sheet := Workbook.Sheets[1]; Sheet.SetAutoFilter('A1:C5'); Workbook.SaveAs('filtered.xls', xlExcel97); finally Workbook.Free; end;