delphi TMS FlexCel Sheet工作表删除清空

TMS FlexCel Sheet工作表删除清空

属性和方法

TXlsFile.ClearSheet

procedure ClearSheet;

清除活动工作表上的所有数据，但不删除它。

TXlsFile.DeleteSheet

procedure DeleteSheet(const aSheetCount: Integer); 
procedure DeleteSheet(const aSheetName: string);
procedure DeleteSheet(const aSheet: Integer; const aSheetCount: Integer);

删除工作表

它会将所有对该工作表的公式引用更改为无效，并可能更改活动工作表，使其保持有效。

重载

DeleteSheet(Integer)

向右删除活动工作表和 aSheetCount-1 个工作表。

DeleteSheet(string)

删除名称为 aSheetName 的工作表。

DeleteSheet(Integer, Integer)

向右删除工作表 aSheet 和 aSheetCount-1个工作表。

参数

aSheet 要删除的第一张工作表。

aSheetCount 要删除的工作表的数量。

aSheetName 要删除的工作表的名称。

例子

清空和删除

uses VCL.FlexCel.Core, FlexCel.XlsAdapter;

procedure TForm1.Button13Click(Sender: TObject);
var
  Xls: TXlsFile;
begin
  //读取Excel文件
  Xls := TXlsFile.Create('C:\Users\Administrator\Desktop\ceshi2.xlsx');
  try
    //设置第2个Sheet为活动Sheet
    Xls.ActiveSheet := 2;
    //清空活动Sheet内容（清空内容，不删除）
    Xls.ClearSheet;
    //删除活动Sheet（删除后活动Sheet会改变）
    Xls.DeleteSheet(1);
    Memo1.Lines.Add('删除后活动Sheet[' + Xls.SheetName + ']');
    //删除Sheet3
    Xls.DeleteSheet('Sheet3');
    //删除第1个Sheet右侧所有Sheet（只保留第1个Sheet）
    Xls.DeleteSheet(2, Xls.SheetCount - 1);
    //保存文件
    Xls.Save('C:\Users\Administrator\Desktop\ceshi3.xlsx');
  finally
    Xls.Free;
  end;
end;