Como matar esse objeto do Excel

Delphi

08/06/2004

Tenho o seguinte codigo

procedure Tfrmlote.BitBtn10Click(Sender: TObject);
var Excel : Variant;
begin
Excel := CreateOleObject(´Excel.Application´);
Excel.Visible :=True;
Excel.WorkBooks.Open(´c:\modelodeslocamento.xls´);
Excel.WorkBooks[1].Sheets[1].Cells[9,4]:= dm1.tblote.FieldByName(´placa´).AsString;
messagedlg(´Arquivo Gerado com Sucesso!´, mtinformation, [mbok], 0);

end;

Tenho essa funcao que abre um arquivo modelo e preenche os dados para o usuario numa planilha pré-definida!
Mas o problema é que se ele gerar 10 arquivos desse. Mesmo quando ele fecha o Excel se eu abrir a lista de processos do windows aparece os 10 processo do Excel abertos!!! Ate que ele estora a memoria do meu computador!
Como faco para poder matar esse objeto????
Grato
Marcos Robson


Marcosrdd

Marcosrdd

Curtidas 0

Melhor post

Fabio.hc

Fabio.hc

10/07/2004

Tente assim:

procedure Tfrmlote.BitBtn10Click(Sender: TObject); 
var Excel : Variant; 
begin 
   Excel := CreateOleObject(´Excel.Application´); 
   Excel.Visible :=True; 
   Excel.WorkBooks.Open(´c:\modelodeslocamento.xls´); 
   Excel.WorkBooks[1].Sheets[1].Cells[9,4]:= dm1.tblote.FieldByName(´placa´).AsString; 
   messagedlg(´Arquivo Gerado com Sucesso!´, mtinformation, [mbok], 0); 

   Excel.WorkBooks.Close;

end;



GOSTEI 1
POSTAR