Herausfinden, welche Excelversion genutzt werden kann

[xZise]

Hallo ihr,
ich benutze zum Einlesen von Daten die Möglichkeit Exceltabellen einzulesen. Nun haben wir es bisher mit MSO 2003 und 2007 getestet. Und wie kann ich jetzt abfragen, ob Excel installiert ist (also 2003 oder 2007)? Bisher habe ich folgenden Code gefunden:

Delphi-Quellcode:

function TDatenbank.ExcelInstalliert: Boolean;
var
  tmp : TGUID;
begin
  // Test auf MSO 2k3, vielleicht geht es nicht für MSO 2k7?
  Result := Succeeded(CLSIDFromProgID(PWideChar('Excel.Application.11'), tmp));
end;

Nun habe ich leider hier weder 2003 noch 2007 und diese Funktion liefert auch False. Aber wie müsste ich das erweitern? Ich tippe mal auf eine OR-Verknüpfung und einer 12 im zweiten Eintrag, statt der 11.

Achso möglichst so, dass ich auch überprüfen kann, um welche Version es sich handelt, sofern dies hier "stimmt".

MfG
xZise

[mkinzler]

Excel 2007 müsste beide COM-Klassen anbieten

[xZise]

Das heißt, mit MSO 2k7 würde das auch True zurückgeben? Kann ich dann herausfinden, ob ich OpenXML öffnen kann?

MfG
xZise

[mkinzler]

Zitat:

Das heißt, mit MSO 2k7 würde das auch True zurückgeben?

Ja.

Zitat:

Kann ich dann herausfinden, ob ich OpenXML öffnen kann?

Es müsste möglich sein. Obwohl ich gelesen habe, das O2k7 anders wie die Vorgänger nicht 100%ig abwärtskompatibel sind. Aber ein simples Open sollte er eigentlich verstehen

[xZise]

Naja, bisher könnten wir die Daten erfolgreich auch mit MSO 2007 einlesen. Aber es war halt eine normale Tabelle. Und nun hatte ein Lehrer gefragt ob er auch das neue Format öffnet, und heute ist mir eingefallen, das er das sozusagen automatisch unterstützt. Ich müsste halt nur herausfinden, ob ich MSO 2k7 oder MSO 2k3 benutzen kann (zur Laufzeit) und dann entsprechend im Öffnen-Dialog auch xlsx anbieten.

Und genau den Schritt zum Herausfinden, ob auf dem Rechner auf MSO 2k7 zurückgegriffen werden kann fehlt mir.

MfG
xZise

[mkinzler]

O2k7 bieten alle Klassen an O2k3, die von O2k7 nicht. Zudem gibt es ja auch ein Converter-Pack für ältere Office-Pakete, das diesen erlaubt OpenXML zu Laden.

[xZise]

Ich verstehe gerade nicht was du meinst :D

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 :D

MfG
xZise

[mkinzler]

O2k3 implemnetiert Excel.Application.12 nicht.
Konvertiern meint in diesem Fall Laden

[xZise]

Zitat:

Zitat von mkinzler

O2k3 implemnetiert Excel.Application.12 nicht.

Achso ;) Das "hätte" ich mir gedacht :P Ich habe mich aber halt gefragt ob MSO 2k7 dies implementiert ;)

Zitat:

Zitat von mkinzler

Konvertiern meint in diesem Fall Laden

Also ich hatte mal kurz gegooglet und ich hatte halt nur OOX <-> OD Konverter, aber halt dann nicht als Zwischenschicht, sondern als seperates Programm.

MfG
xZise

[mkinzler]

Der Converterpack ist von MS und erweitert ältere Versionen um Import/Export-Filter für die OpenXML-Dateiversionen