TENTA NO FINAL EXCELAPPLICATION.QUIT e-mail - [EMAIL PROTECTED] MSN - [EMAIL PROTECTED] Analista de Sistemas itamar roloff ------------------------------------------- ----- Original Message ----- From: "Adalberto Sousa Monteiro" <[EMAIL PROTECTED]> To: <delphi-br@yahoogrupos.com.br> Sent: Tuesday, April 05, 2005 6:20 PM Subject: [delphi-br] Liberar Excel da Memoria
> > Estou montando uma rotina para exportar dados automaticamente para o Excel. > > Segue a rotina abaixo > > lcid := GetUserDefaultLCID; //pega o usuário logado > Path := ExtractFilePath(Application.ExeName) + 'pedido.xls'; > WkBk := ExcelApplication1.Workbooks.Open(Path , EmptyParam, EmptyParam, > EmptyParam, > EmptyParam, EmptyParam, EmptyParam, EmptyParam, > EmptyParam, EmptyParam, EmptyParam, > EmptyParam, EmptyParam, LCID); > > ExcelApplication1.Visible[lcid] := true; //torna a aplicação visível > //ExcelApplication1.Visible[lcid] := False; //torna a aplicação visível > ExcelApplication1.DisplayAlerts[lcid] := false; //remove alertas do excel > ExcelWorksheet1.ConnectTo(WkBk.Worksheets[2] as _Worksheet); > ExcelWorksheet1.Activate(LCID); //ativa a planilha conectada > ExcelApplication1.ScreenUpdating[lcid] := true; //torna possível fazer > alterações > > For vi_ContaLinha := 1 to vi_TotLinha Do > Begin > ...... rotina ...... > End; > > ExcelApplication1.disconnect; > ExcelWorksheet1.SaveAs( ExtractFilePath(Application.ExeName) + > EditNameArq.Text + '.xls'); > ExcelApplication1.Free; > Meu problema é o seguinte, quando deixo assim: > ExcelApplication1.Visible[lcid] := False; //torna a aplicação visível > > O excel nao libera dos processos do windows, ficando preso e não consigo > abrir novamente o excel, mesmo utilizando a rotina ExcelApplication1.Free; > > Alguem teria uma ideia? > Obrigado > Beto > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > > > > -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
