Murillo, adapte para as suas necessiddades.
uses Excel97, ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
Planilha, Coluna: Variant;
Aplicativo: Variant;
lin, col: Integer;
nome_arq: String;
begin
OpenDialog1.Filter := 'ArquivosInterbase/Firebid|*.fdb';
if OpenDialog1.Execute then
begin
IBQuery.Close;
IBQuery.Open;
nome_arq :=
Copy(ExtractFileName(OpenDialog1.FileName),1,Length(ExtractFileName(OpenDial
og1.FileName))-3);
Aplicativo := CreateOleObject('Excel.Application');
Aplicativo.Visible := True;
Aplicativo.Workbooks.Add(xlWBatWorkSheet);
Aplicativo.Workbooks[1].WorkSheets[1].Name := nome_arq;
Planilha := Aplicativo.Workbooks[1].WorkSheets[nome_arq];
Coluna := Aplicativo.Workbooks[1].WorkSheets[nome_arq].Columns;
for lin := 1 to IBQuery.Fields.Count do
begin
Planilha.Cells[1,lin].Font.Color := clBlue;
Planilha.Cells[1,lin] := IBQuery.FieldDefs[lin - 1].Name;
end;
lin := 1;
while not IBQuery.eof do
begin
for col := 0 to IBQuery.Fields.Count-1 do
Planilha.Cells[lin + 1, col + 1] := IBQuery.Fields[col].AsString;
IBQuery.Next;
inc(lin);
end;
Planilha.SaveAs(Copy(OpenDialog1.FileName,1,Length(OpenDialog1.FileName) -
3) + '.xls');
ShowMessage('Planilha Salva');
end;
IBQuery.close;
end;
Espero ter ajudado.
----- Original Message -----
From: "Murillo Proença" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, November 24, 2004 10:48 AM
Subject: [delphi-br] Atualizando planilha Excel
Bom dia galera,
preciso desenvolver uma rotina onde vou atualizar uma planilha, que
já existe, na qual há fórmulas e algumas células com dados, ou seja,
apenas vou preencher algumas células.
Procurei pelas mensagens da lista, mas o que encontrei são apenas
trechos de como mesclar, como colocar fórmula, etc. Preciso de um
trecho de fonte completo, abertura do arquivo excel, gravação de
algumas células e gravação do mesmo.
Detalhe, não poderei utilizar componentes de terceiros, só nativos
do Delphi.
Obrigado
Murillo Proença
--
<<<<< 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
