Detecter la version d'Excel

Version imprimable

14/04/2011, 11h58
mehat

Detecter la version d'Excel
Salut pour tout,

je voulus savoir comment détecter la version d'Excel ou d'office installer ?

j'ai fais se bout de code
Code:

1 2 3 4 if Format = tXlsFormat then FileFormat := varNull else FileFormat := xlCSV ;
mais ceci ne marche pas sur des version d,excel ulterieur a 2007

est ce quelqu'un peut m'aider et merci d'avance.

Pourquoi faire compliquer ?

Code:

1
2
3
4
5
var
  ExcelApp: OleVariant;
...
  ExcelApp := CreateOleObject('Excel.Application');
  ShowMessage(Format('Excel Version %s: ', [ExcelApp.Version]));

15/04/2011, 12h13
mehat

Merci pour votre réponse sa marche, :)
19/04/2011, 09h39
bozeclair

Salut

je cherche à savoir dans quelle version est enregistré le classeur.

avez vous une idée ?

merci

WorkBook dans la MSDN

Tu as Format ou FileFormat dans le WorkBook, il te te renvoie l'énumération
XlFileFormat !

On peut espérer que cette propriété existe depuis le début de Excel

Sinon le plus approchant CalculationVersion, en espérant qu'il n'est pas recalculé par la version ouvrante !
Un Fichier Excel généré par TMS FlexCell par exemple, les calculs ne sont pas mis à jour lors des modifications, à l'époque, j'avais trouvé la parade en ouvrant un Excel masqué, cela modifiait le fichier actif, puis un SaveAs pour récupérer le fichier (tout en veillant à conserver le format binaire xls même sous Excel 2007)
Une fois le fichier enregistré, le ouverture suivante ne provoquait pas de modification, on peut donc espérer que la version reste la bonne!
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 var ExcelApp: OleVariant; vXLWorkbooks, vXLWorkbook : variant; aFileName : AnsiString; begin ExcelApp := CreateOleObject('Excel.Application'); ShowMessage(Format('Excel Version %s: ', [ExcelApp.Version])); aFileName := 'c:\Home\Sources\Delphi\classeur1.xls'; vXLWorkbooks := vMSExcel.Workbooks; vXLWorkbook := vXLWorkbooks.Open(vFileName); ShowMessage(Format('Fichier Excel Version %d: ', [vXLWorkbook.CalculationVersion])); end;

19/04/2011, 10h33
bozeclair

merci....

j'ai trouver aussi FileFormat

je doit vérifier à l'ouverture du classeur que celui ci est bien au format excel 97-2003.

et ça doit marcher avec excel 97,2003,2007,2010

je sèche un peu...
19/04/2011, 10h59
ShaiLeTroll

Pourrais-tu proposer le code que tu as déjà fait ?
L'énumération XlFileFormat contient d'autres valeur tel que xlOpenXMLWorkbook qui correpond au Fichier XSL XML de 2007, consulte l'excellent site d'astuce Excel de rondebruin

Salut ,
J'ai eu aussi un problème dans le saveas file as Excel File , j'ai fais ce traitement il me semble que sa marche je le tester seulement sur excel 2007
Code:

1 2 3 4 5 6 7 8 9 10 if Format = tXlsFormat then begin if (GetExcelVersion = '8.0') or (GetExcelVersion = '7.0') then FileFormat := xlExcel9795 else FileFormat := varNull; end else FileFormat := xlCSV ;
Est ce que est vrai ce que j'ai fait 8O