Exporta��o no Delphi

Question

Boa tarde galera,Algu�m pode me ajudar como fazer uma exporta��o em excel....

Singular Ti · Answer

explique melhor o que vc quer exportar para o excel?? conteudo de uma DBGrid? resultado de um select (clientdataset)??Enfim... Explique melhor para podermos lhe ajudar......

Gustavo Fernandes · Answer

Leandro,� resultado de um select usando uma (Query).Se puder me ajudar eu agradeceria muito!...

Alisson Santos · Answer

Como quer fazer essa exporta��o.O que precisa que seja exportado e de qual forma.Poderia explicar melhor para podermos auxiliar no desenvolvimento....

Romulo Contro · Answer

faz o seguinte... cria uma variavel do tipo Variant

por exemplo:
Excel : Variant;

Excel := CreateOleObject('Excel.Application');
Excel.WorkBooks.Add;
Excel.WorkBooks[1].Sheets.Add;
Excel.Visible := true; (aqui � caso vc quiser mostrar o excel na tela)

Excel.WorkBooks[1].Sheets[1].Cells[numerolinha,numerocoluna] := o que vc quiser aqui...

Excel.WorkBooks[1].SaveAs('aqui coloca o caminho que quiser salvar');
Excel.Visible := false; (aqui se tiver com o visible true, vc pode colocar = false, que ele fica aberto mas some da tela)

//essas 3 linhas de baixo fecha o excel e tira ele da mem�ria
Excel.WorkBooks[1].Close;
Excel.Quit;
Excel := Unassigned;

voc� pode implementar isso a� dentro de um for, ou de um while, controlando as linhas e colunas com variaveis integer... a� vai do seu talento organizar isso do jeito que ficar melhor.

espero que tenha entendido...

Gustavo Fernandes · Answer

Romulo,

fiquei um pouco confuso com sua explica��o. e n�o deu certo meu caro.

Eu, s� quero exporta uma tabela de clientes com mais ou menos 10 campos.

e estou utilizando uma Query para filtrar os dados do campo.

Romulo Contro · Answer

ok, tenta fazer exatamente com esse codigo ent�o:

procedure GerarExcel();
var
Excel : Variant;
i, j, l, c : integer;
begin
inherited;

c := 1;
l := 1;
Excel := CreateOleObject('Excel.Application');
Excel.WorkBooks.Add;
Excel.WorkBooks[1].Sheets.Add;

Query.Open;
Query.First;

for i := 0 to Query.FieldCount-1 do
begin
Excel.WorkBooks[1].Sheets[1].Cells[l,c] := Query.Fields[i].FieldName;
Excel.WorkBooks[1].Sheets[1].Cells[l,c].font.bold := true;
Excel.WorkBooks[1].Sheets[1].Cells[l,c].interior.color := clMoneyGreen;
inc(c);
end;

while not Query.Eof do
begin
c := 0;
inc(l);
for i := 0 to Query.FieldCount-1 do
begin
inc(c);
Excel.WorkBooks[1].Sheets[1].Cells[l,c].NumberFormat := '@';
Excel.WorkBooks[1].Sheets[1].Cells[l,c] := Query.Fields[i].Value;
end;

Query.Next;

end;
Excel.Visible := true;
end;

obs: s� troca a Query pelo nome da query que vc criou

Deivison Melo · Answer

Existem componentes freewares para que possa exportar as informa��es carregadas no dataset diretamente......

Alisson Santos · Answer

Caro amigo, eu n�o sei muito bem pois nunca tive que fazer.
nesse link que estou disponibilizando pode sanar sua duvida http://catrinck.wordpress.com/2008/03/10/exportar-os-dados-contidos-na-tela-para-excel-em-delphi/

Claudia Nogueira · Answer

Fiz um exemplo de como uso no meu sistema quando preciso exportar alguma informa��o para o excel.--&gt[url]www.cdnweb.com.br/TesteExcel.rar[/url]Qualquer d�vida, estou a disposi��o....

Gustavo Fernandes · Answer

Obrigado pessoal, com ajuda de voc�s n�o sou ningu�m. As dicas foram certeiras....

F�rum Exporta��o no Delphi #423679