delphi TMS FlexCel Sheet工作表信息

TMS FlexCel Sheet工作表信息

属性和方法

TXlsFile.SheetCount

property SheetCount: Integer

文件中工作表数。

TXlsFile.SheetCountVisible

property SheetCountVisible: Integer

文件中可见工作表的数量。

TXlsFile.GetSheetName

返回给定索引的工作表名称。

function GetSheetName(const sheetIndex: Integer): string;

参数

sheetIndex 工作表索引（从1开始）。

TXlsFile.GetSheetVisible

function GetSheetVisible(const sheet: Integer): TXlsSheetVisible;

如果给定的工作表可见，则返回。

参数

sheet 工作表索引（从1开始）。

TXlsFile.ActiveSheet

property ActiveSheet: Integer

正在处理的工作表，索引从1开始（第一个工作表是 1，而不是 0）。在处理文件之前始终设置此属性。 您可以读取或写入此值。

设置活动工作表也会设置文件中的选中工作表，除非对象是TExcelFile.LightClone，所选文件不会更改。

TXlsFile.ActiveSheetByName

property ActiveSheetByName: string

我们正在处理的工作表，按名称而不是按索引设置。

设置活动工作表也会设置文件中的选中工作表，除非对象是TExcelFile.LightClone，所选文件不会更改。

TXlsFile.SheetName

property SheetName: string

读取和更改活动工作表的名称。

此名称在文件中必须是唯一的。长度不超过31个字符，并且不能包含字符“/”、“\”、“?”、“[”、“]”、“*”或“:”

TXlsFile.SheetVisible

property SheetVisible: TXlsSheetVisible

设置活动工作表的可见性。

TXlsSheetVisible

工作表可见性。

unit

FlexCel.Core

Hidden 工作表是隐藏的，可以由用户用 excel 显示。

VeryHidden 工作表是隐藏的，唯一显示它的方法是使用宏。 （用户用excel看不到）

Visible 工作表对用户可见。

例子

获取工作表信息

procedure TForm1.Button8Click(Sender: TObject);
var
  Xls: TXlsFile;
  I: Integer;
begin
  //读取Excel文件
  Xls := TXlsFile.Create('C:\Users\Administrator\Desktop\ceshi1.xlsx');
  try
    Memo1.Lines.Add('总Sheet数 ' + Xls.SheetCount.ToString);
    Memo1.Lines.Add('可见Sheet数 ' + Xls.SheetCountVisible.ToString);
    Memo1.Lines.Add('--------------------');
    //遍历Sheet
    for I := 1 to Xls.SheetCount do
    begin
      Memo1.Lines.Add('Sheet索引 ' + I.ToString);
      Memo1.Lines.Add('Sheet名称 ' + Xls.GetSheetName(I));
      case Xls.GetSheetVisible(I) of
        TXlsSheetVisible.Hidden: Memo1.Lines.Add('Sheet可见性 隐藏');
        TXlsSheetVisible.VeryHidden: Memo1.Lines.Add('Sheet可见性 加密隐藏');
        TXlsSheetVisible.Visible: Memo1.Lines.Add('Sheet可见性 可见');
      end;
      Memo1.Lines.Add('Sheet名称 ' + Xls);
      Memo1.Lines.Add('--------------------');
    end;
  finally
    Xls.Free;
  end;
end;

活动工作表

procedure TForm1.Button9Click(Sender: TObject);
var
  Xls: TXlsFile;
begin
  //读取Excel文件
  Xls := TXlsFile.Create('C:\Users\Administrator\Desktop\ceshi1.xlsx');
  try
    //根据索引设置活动Sheet
    Xls.ActiveSheet := 3;
    //根据名称设置活动Sheet
    //Xls.ActiveSheetByName := 'Sheet3';
    //读取活动Sheet信息
    Memo1.Lines.Add('活动Sheet索引 ' + Xls.ActiveSheet.ToString);
    Memo1.Lines.Add('活动Sheet名称 ' + Xls.SheetName);
    case Xls.SheetVisible of
      TXlsSheetVisible.Hidden: Memo1.Lines.Add('活动Sheet可见性 隐藏');
      TXlsSheetVisible.VeryHidden: Memo1.Lines.Add('活动Sheet可见性 加密隐藏');
      TXlsSheetVisible.Visible: Memo1.Lines.Add('活动Sheet可见性 可见');
    end;
    Memo1.Lines.Add('' + Xls.SheetCodeName);
    //更改活动Sheet名称
    Xls.SheetName := '表3';
    //更改活动Sheet可见性
    Xls.SheetVisible := TXlsSheetVisible.Hidden;
    //保存更改
    Xls.Save('C:\Users\Administrator\Desktop\ceshi1.xlsx');
  finally
    Xls.Free;
  end;
end;