ODlg.Filter:='All spreadsheet files|*.xls;*.xlsx;*.ods;*.csv|All Excel files (*.xls, *.xlsx)|*.xls;*.xlsx|Excel XML spreadsheet (*.xlsx)|*.xlsx|Excel 97-2003 spreadsheets (*.xls)|*.xls|Excel 5 spreadsheet (*.xls)|*.xls|Excel 2.1 spreadsheets (*.xls)|*.xls|LibreOffice/OpenOffice spreadsheet (*.ods)|*.ods|Comma-delimited files (*.csv)|*.csv';
sWorkbookSB.AutoDetectFormat := true;
sWorkbookSB.AutoDetectFormat := true;
if Odlg.Execute then begin
sWorkbookSB.FileName :=ODLG.FileName;
sworksheetGrid1.WorkbookSource.FileName:=sWorkbookSB.FileName;
if sworksheetGrid1.Visible = false then sworksheetGrid1.Visible:=true;
FExcFile.Text :=oDlg.FileName;
end;