effacer la tache excel de la mémoire

Question

Lorsque je pilote EXCEL avec DELPHI il arrive que la fermeture de excel est incomplette : excel est toujours en memoire.

avec les instruction suivantes il est possible de cr&#233;er OleApplication , mais je ne peux d&#233;charger excel de la m&#233;moire.

   try
     OleApplication := GetActiveOleObject('Excel.Application');
   except
    OleApplication := CreateOleObject('Excel.Application'); // cr&#233;ation du lien OLE
  end;

Question:
Excel &#233;tant toujours en m&#233;moire comment d&#233;t&#233;cter sa pr&#233;sence et l'effacer de la m&#233;moire ?

yvessimon

Loulibier · Answer

Bonjour yvessimon,

Pour &#234;tre sure que tu es bien lib&#233;rer excel de la m&#233;moire, pourquoi ne pas tuer toi m&#234;me le process une fois apr&#232;s avoir fait tous tes traitements...
Voici une fonction qui te permettra de tuer un process en lui passant son nom exemple : Excel.exe

function KillProcess(const sProcessName : string): boolean;
var
  Processentry32 : TProcessEntry32;
  Handle              : THandle;
  HProc               : THandle;
begin
  Result :=  False;


  Processentry32.dwSize := SizeOf(Processentry32);
  Handle := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);


  Process32First(Handle,Processentry32);


   repeat 
    if CompareText(Processentry32.szExeFile,sProcessName)  = 0 then
    begin
      HProc := OpenProcess(1,False,Processentry32.th32ProcessID);
      TerminateProcess(HProc,ExitCode);
      Result := True;
      break;
    end;
  until not Process32Next(Handle,Processentry32);
end;

Bonne Prog, 

Olivier

PS : Lorsqu'une r&#233;ponse vous convient, n'oubliez pas de la valider.

jmp77 · Answer

Hello,



Plus simplement utiliser un try .... finally comme ceci :



var

 OleApplication : Variant;

 

 begin

 {Connection OLE avec excel}

 OleApplication := CreateOleObject('Excel.Application');

             

     Try

     OleApplication.WorkBooks.Open('C:\MOnFichier.xls'); //Chargement du fichier            OleApplication.Visible := False; //On masque excel

     OleApplication.Run('Start'); //On Lance la macro Start

     Finally

     {Fermeture du fichier excel}

     OleApplication.Run('Finish'); //On lance la macro Finish

     OleApplication.Quit; //On ferme excel

     end;
 end;

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

yvessimon · Answer

La 1ere solution m'est satisfaisante car en plus j'ai une m&#232;thode pour lister les t&#226;ches en cours.

Merci &#224; tous pour cette aide

yvessimon

jmp77 · Answer

Hello,



Une petite remarque comme cela en passant c'est que si ton utilisateur
avait des fichiers excel ouvert et que ton programme lui ferme
brutalement ces fichiers je pense qu'il ne va pas tr&#232;s appr&#233;ci&#233; !!!!!

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

yvessimon · Answer

C'est une bonne remarque.

Mais avec excel2000 j'ai l'erreur suivante:
 'Impossible de trouver la macro 'Start''.
 'Impossible de trouver la macro 'Finish''.

Alors .....

yvessimon

jmp77 · Answer

LOL



D&#233;sol&#233; je t'ai fais un copier coller d'un code que j'ai d&#233;pos&#233; pour quelqu'un d'autre. Voici la version corrig&#233;e :


var

  OleApplication : Variant;

  

  begin

  {Connection OLE avec excel}

  OleApplication := CreateOleObject('Excel.Application');

              

      Try

      OleApplication.WorkBooks.Open('C:\MOnFichier.xls'); //Chargement du fichier            OleApplication.Visible := False; //On masque excel

      Finally

      {Fermeture du fichier excel}

    OleApplication.Quit; //On ferme excel

      end;
 end;



Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

Effacer la tache excel de la mémoire

6 réponses

Votre réponse

Discussions similaires