Problème avec TExcelApplication
Bonjour à tous,
J'espère avoir posté dans la bonne partie, j'ai beaucoup hésité avec le forum 'composant' :question:
J'ai un 'gros' problème avec l'utilisation de TExcelApplication sur lequel je bloque depuis... ah bah tiens 4H à mon top ! :lol: :cry:
J'ai pourtant bien regardé le tuto de la FAQ, mais rien à faire ça ne veut pas marcher :cry:
Voilà l'extrait de code qui plante:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
| [...]
uses [...] Excel2000 [...];
procedure TFrmResultat.btn_convertClick(Sender: TObject);
var
filename : textFile;
fichierexcel : String;
fichierexcelole : OleVariant;
lignetemporaire : String;
datetemporaire : TDateTime;
MonClasseur : OleVariant;
MaFeuille : OleVariant;
LCID : integer;
begin
LCID := GetUserDefaultLCID;
// On ouvre le fichier texte de résultat
assignFile(filename,fichier);
reset(filename);
// si le fichier excel n'est pas encore créé on le copie dans le dossier de la campagne
fichierexcel := 'c:\Scenario\Campagnes\' + ComboBoxResultat.Text + '\Resultats\Essai.xls';
if not(FileExists(fichierexcel)) then
CopyFile(PChar('C:\Scenario\Scenars\Excel\Essai.xls'),
PChar(fichierexcel),
False);
// On se connecte à excel et on ouvre le fichier excel
ExcelApplication1.Connect;
MonClasseur:= ExcelApplication1.Workbooks.Open(fichierexcel,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,LCID);
ExcelApplication1.Visible[LCID] := true; |
L'execution de ce code provoque un EAccessViolation à l'adresse 0x000000. L'erreur survient sur la ligne ExcelApplication1.Workbooks.Open() :(
Quelques petites précisions:
*Le chemin fichierexcel est correcte, j'ai vérifié
*Par rapport à tous les exemple sque j'ai pu trouver sur le net, delphi me demande 2 paramètres de plus dans la fonction open
*Je suis 'débutant' delphi et peut habituer à ce type d'outils
*A toute fin utile: Excel est dans sa version 2000, l'OS est un windows XP, et j'utilise la version 7 professionnel de delphi
Je vous remercie par avance pour votre aide et serai eternellement reconnaissant à mon ( mes ?) sauveur(s) :love2: