procedure TForm1.FormCreate(Sender: TObject);
var
nc, nr: Cardinal;
sheet: TsWorksheet;
begin
sWorksheetGrid1.LoadFromSpreadsheetFile('test.xlsx', sfOOXML);
sWorksheetGrid1.AutoExpand := [aeData];
sheet := sWorksheetGrid1.Worksheet;
nc := sheet.GetLastColIndex;
nr := sheet.GetlastRowIndex;
sWorksheetGrid1.ColCount := nc;
sWorksheetGrid1.RowCount := nr;
end;