procedure TForm1.FileOpen1Accept(Sender: TObject);
begin
sWorkbookSource1.AutodetectFormat := false;
case FileOpen1.Dialog.FilterIndex of
1: sWorkbookSource1.AutoDetectFormat := true; 2: sWorkbookSource1.AutoDetectFormat := true; 3: sWorkbookSource1.FileFormat := sfOOXML; 4: sWorkbookSource1.FileFormat := sfExcel8; 5: sWorkbookSource1.FileFormat := sfExcel5; 6: sWorkbookSource1.FileFormat := sfExcel2; 7: sWorkbookSource1.FileFormat := sfOpenDocument; 8: sWorkbookSource1.FileFormat := sfCSV; end;
sWorkbookSource1.FileName :=FileOpen1.Dialog.FileName; end;