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