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 <*> 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
