Herausfinden, welche Excelversion genutzt werden kann

[xZise]

Ich verstehe gerade nicht was du meinst

Ich dachte daran:

Delphi-Quellcode:

type
  TExcelVersion = (ev2003, ev2007, evNone);

function ExcelVersion : TExcelVersion;
begin
  Result := .... (hier bitte den Code :D )
end;

procedure DoSmth;
begin
  case ExcelVersion do
    ev2003 : OD.Filter := 'xls|*.xls';
    ev2007 : OD.Filter := 'xls(x)|*.xls;*.xlsx';
    else begin
      ShowMessage('Nix Excel');
      Exit;
    end;
  end;  
  if OD.Execute do
    ...
end;

Weil konvertieren wollte ich die Datei nicht

MfG
xZise