j?ai un problème Delphi-ExcelRésolu

Question

Bonjour à tous , j’ai un problème



Jai fait une application en DELPHI7 qui ouvre un fichier Excel existant, et permet de faire des recherches-modifications et ajout de nouvelle données à ma base, seulement le problème c’est que, les changements que j’apporte je ne les retrouves pas dans le classeur Excel (pas de sauvegarde) je retrouve les données initiales ? 



Et puis quand je veux exécuter (vXLWorkbook.Save; vMSExcel.Quit;)  j’ai le message d’erreur suivant : « le projet a provoqué une classe d’exception Evariantinvalideoperror avec le message d’opération de variant incorrecte’, processus stoppé. Utilisez pas à pas ou exécuter pour continuer. »




 y’a-t-il quelqu’un qui puisse m’aider s’il vous plait ?







Nes

fbalien · Accepted Answer

Bonjour

comment initialisez vous votre variable ?
perso je fait comme ceci

Var 
  RH : variant;

begin
  RH := CreateOLEObject('Excel.application');
  RH.Visible:= False;
  RH.workbooks.open(strNomfichierSource);
  .... modif des cellules 

  RH.Workbooks[nomfichier].save;
  RH.quit;
  RH := unassigned;
end;

si çà peut vous aidez

cs_nesr · Answer

Voilà ce que j’ai fait<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /??>







var








    vXLWorkbooks, vXLWorkbook : variant;








    vMSExcel : variant;








    
vFileName : AnsiString;




 







Dans le source projet  j’ai mis :








 






try








   vMSExcel := GetActiveOleObject('Excel.Application');








  except








    vMSExcel := CreateOleObject('Excel.Application');








  end;








  vMSExcel.Visible := true;








  vFileName := 'D:\LAID3\ISOR''08 appl\ISOR''08 appl REV2\baseISOR08.xls';








  vXLWorkbooks := vMSExcel.Workbooks;








  vXLWorkbook := vXLWorkbooks.Open(vFileName);  








 








et dans la unit1 dans le menu quiter j’ai mis:








procedure TForm1.Quiter1Click(Sender: TObject);







var vXLWorkbooks, vXLWorkbook : variant;








    vMSExcel : variant;







begin








  vXLWorkbook.Save;








  vXLWorkbook.Close;








  vMSExcel.Quit;








  vMSExcel := unassigned;







  if messagedlg('Voulez-vous quitter?',mtinformation,[mbyes,mbno],0)=mryes then    application.Terminate;



end;







Nes

cs_cantador · Answer

Bonjour,
dans votre procédure :procedure TForm1.Quiter1Click(Sender: TObject);<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>

var vXLWorkbooks, vXLWorkbook : variant;

    vMSExcel : variant;

vos variables sont locales alors que vous les avez déjà définies globalement..
elles ne sont donc pas renseignées..

il faut donc les supprimer.

cantador

cs_nesr · Answer

Je viens de corriger mon programme d’après vos recommandations (cantador et fbalien), et je vous remercie pour vos réponses, seulement j’ai maintenant un autre problème, après fermeture de l’application je ne peux plus ouvrir le fichier Excel en mode lecture écriture, j’ai un message qui dit que «  le fichier est verrouillé pour modification » comment faire pour pouvoir y accéder en mode lecture –écriture pour effectuer des modifications?



<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>

 





Salutations







Nes

oudjedi · Answer

Salut , comment faire la programmation d'execel sous delphi 7 sur tout faire un tableau ,mise en forme , ..ect sous delphi

oudjedi · Answer

Salut , comment faire la programmation d'execel sous delphi 7 sur tout faire un tableau ,mise en forme , ..ect sous delphi
oud_nab@yahoo.fr

cs_cantador · Answer

@oudjedi :

merci de faire un autre post pour cette question qui par ailleurs
a déjà été traitée ici ou là..

il suffit de chercher sur le site ou sur internet.

Mots clés : delphi + EXCEL + OLE

cantador

J?ai un problème Delphi-Excel

7 réponses

Votre réponse

Discussions similaires