Bom dia
Obrigado pela dica e aos demais que responderam
----- Original Message -----
From: "Marcio William" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, September 14, 2004 1:34 PM
Subject: Re: [delphi-br] Exportar para Excel
> voce tem que fechar a planilha.
>
> []s Marcio William
>
> ----- Original Message -----
> From: "Carlos Alberto" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Tuesday, September 14, 2004 10:43 PM
> Subject: [delphi-br] Exportar para Excel
>
>
>
>
>
> Estou querendo exportar dados de um DBGrid para excel e estudando a
> exportaçã de dados a Excel escrevi este procedimento porem parece que o
> mesmo está imcompleto ou com erro pois quando executo ele pela primeira
fez
> ele funciona porém na segunda vez ele tranca na linha
> "Planilha.SaveAs('Teste.xls');" dando a seguinte mensagem "Não é possível
> acessar " 'Teste.xls' ".
> Após fechar o programa e indo ao diretório onde foi gravado pela primeira
> vez e tento apagar o Windos diz que o arquivo está sendo utilizado pelo
> Excel. Alguma dica
>
>
> Uses ComObj
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> Excel, Planilha : OleVariant;
> begin
> try
> Excel:=CreateOleObject('Excel.Application');
> except
> ShowMessage('O programa Excel não pode iniciar');
> exit;
> end;
> Excel.WorkBooks.Add;
> Planilha := Excel.WorkBooks[1].Sheets[1];
> Planilha.Cells.Item[1,1] := 'Código';
> Planilha.Cells.Item[1,2] := 'Descrição';
> Planilha.SaveAs('Teste.xls');
> Planilha.Close;
> end;
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< 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
>
>
>
>
>
>
--
<<<<< 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
