Code: Select all
XLSReadWriteII51.FileName:='C:\XLSRWII.xlsx';
XLSReadWriteII51.Read;
Label1.Font.Color:=XLSReadWriteII51.Sheets[0].TabColor;
Code: Select all
XLSReadWriteII51.FileName:='C:\XLSRWII.xlsx';
XLSReadWriteII51.Read;
Label1.Font.Color:=XLSReadWriteII51.Sheets[0].TabColor;
Code: Select all
Cl := XLS[0].Xc12Sheet.SheetPr.TabColor.ARGB;