首页 > 其他分享 >delphi TMS FlexCel Sheet工作表选择和查找

delphi TMS FlexCel Sheet工作表选择和查找

时间:2022-08-23 09:48:57浏览次数:68  
标签:TMS Sheet FlexCel 工作 查找 选中 const GetSheetIndex Xls

TMS FlexCel Sheet工作表选择和查找

属性和方法

TXlsFile.GetSheetIndex

function GetSheetIndex(const sheetName: string): Integer;
function GetSheetIndex(const sheetName: string; const throwException: Boolean): Integer;

在工作簿上查找工作表名称并返回其索引。

重载

GetSheetIndex(string, Boolean)

根据throwException参数,如果工作表不存在,此方法将引发异常或返回 -1。

GetSheetIndex(string)

如果工作表不存在,它将引发异常。

参数

sheetName 要查找的工作表。

throwException 如果未找到工作表,throwException = true 时将引发异常。throwException = false 时将返回 -1。

返回值

如果工作表存在,则工作表索引,否则抛出异常。

TXlsFile.GetSheetSelected

function GetSheetSelected(const sheetIndex: Integer): Boolean;

如果选择了工作表,则返回 true,否则返回 false。

请注意,在Excel中可以通过按住shift或ctrl键单击工作表选项卡来选择许多工作表。另请注意,当更改 TExcelFile.ActiveSheet 时,选中的工作表将重置为活动工作表。因此,如果您想找出文件中选择了哪些工作表,您应该在打开文件后,但在更改活动工作表之前调用此方法。

参数

sheetIndex 工作表索引(从1开始)。

TXlsFile.SetSheetSelected

procedure SetSheetSelected(const sheetIndex: Integer; const selected: Boolean); override;

此方法会将工作表选项卡设置为选中状态。

请注意,这与 TExcelFile.ActiveSheet 的不同之处在于您可能只有一个活动工作表,但可以通过按住ctrl键单击多个选项卡来选择它们。 另请注意,当更改 TExcelFile.ActiveSheet 时,选中的工作表将重置为活动工作表。 因此,如果要保存包含多个选中工作表的文件,则应在最后一次调用 TExcelFile.ActiveSheet之后调用此方法。

参数

sheetIndex 工作表索引(从1开始)。

selected 如果为 true,则将选择工作表,否则将取消选择工作表。

例子

查找和选中

procedure TForm1.Button14Click(Sender: TObject);
var
  Xls: TXlsFile;
  SheetIndex: Integer;
begin
  //读取Excel文件
  Xls := TXlsFile.Create('C:\Users\Administrator\Desktop\ceshi.xlsx');
  try
    //根据Sheet名称查找对应索引
    SheetIndex := Xls.GetSheetIndex('Sheet3', False);
    if SheetIndex = -1 then
    begin
      Memo1.Lines.Add('Sheet3的未找到');
    end
    else
    begin
      Memo1.Lines.Add('Sheet3的索引' + SheetIndex.ToString);
    end;

    //判断是否选中
    if Xls.GetSheetSelected(SheetIndex) then
      Memo1.Lines.Add('选中')
    else
      Memo1.Lines.Add('没选中');
    //设置前2个Sheet为选中
    Xls.SetSheetSelected(1, True);
    Xls.SetSheetSelected(2, True);
    //保存文件
    Xls.Save('C:\Users\Administrator\Desktop\ceshi1.xlsx');
  finally
    Xls.Free;
  end;
end;

标签:TMS,Sheet,FlexCel,工作,查找,选中,const,GetSheetIndex,Xls
From: https://www.cnblogs.com/txgh/p/16615052.html

相关文章