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
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;