[Excel] Message "Interface non supportée"
Bonjour,
J'ai un problème avec mon appli Delphi et excel.
En effet, sur certains postes utilisateurs le message d'erreur "Interface non supportée" appraraît lorsque j'ouvre mon modèle de feuille excel.
En regardant sur le forum, j'ai compris qu'il y avait un problème de version avec excel. J'ai donc remplacer tous les "Excel97" par des "ExcelXp" ... mais rien y fait !!
Mon code est le suivant :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13
|
uses
DBTables, IdGlobal, DB, DateUtils, ExcelXP, SysUtils, Variants, Types, Gauges,
StdCtrls, Forms, uDataModule, Dialogs ;
type
{-- Class EXCEL REPORT --}
TxlsRptDR = class
ExcelApp : TExcelApplication;
rng : ExcelXP.ExcelRange;
xlsBk : ExcelXP.ExcelWorkbook;
xlsSht : ExcelXP.ExcelWorksheet; |
et la suite ...
Code:
1 2 3 4 5 6 7 8 9
|
Filename := ExtractFilePath(paramstr(0)) + 'Excel\Shipping_DRSchedule.xls' ;
ShowMessage('1');
xlsBk := ExcelApp.Workbooks.Open(Filename, emptyParam, True, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, 0);
ShowMessage('2'); |
Mes utilisateurs voient le message "1" mais jamais le "2" !!!
Pouvez-vous me dire ce que je fais de travers car je sèche ?!!?
Merci beaucoup,
hathor