exportar dados para o excel

Question

ola pessoal, como eu fa�o pra exportar dados consultados no banco para o excel, o cliente pediu para gerar um relat�rio e exportar o mesmo para o excel, vlw...

Rjun · Answer

Com ADO voc� pode acessar arquivos do EXCEL como se fossem tabelas de um banco de dados....

Ferreia2 · Answer

A forma que estou te enviando � meio Bra�al, por�m desta forma independe se a maquina que esta rodando a aplica��o tem excel ou n�o.Gere um arquivo texto com a estrutura abaixo e salve como .xlsWriteLn(Planilha,��); WriteLn(Planilha,��); WriteLn(Planilha,��); WriteLn(Planilha,��); WriteLn(Planilha,�C�d. Estab.�); WriteLn(Planilha,�C�d. Loja�); WriteLn(Planilha,�Nome da Loja�); WriteLn(Planilha,�Tipo Doc.�); WriteLn(Planilha,�Valor�); WriteLn(Planilha,�Data�); WriteLn(Planilha,�Total Pagto�);WriteLn(Planilha,��); WriteLn(Planilha,��); WriteLn(Planilha,�� + DmPrincipal.Qry_Existe_Estorno.FieldByName(�Cod_estb_corban�).AsString + ��); WriteLn(Planilha,�� + DmPrincipal.Qry_Existe_Estorno.FieldByName(�Cod_Loja_corban�).AsString + ��); WriteLn(Planilha,�� + DmPrincipal.Qry_Existe_Estorno.FieldByName(�Dsc_Nome_Fant�).AsString + ��); If DmPrincipal.Qry_Existe_Estorno.FieldByName(�Tip_Pagto�).AsString = �A� Then WriteLn(Planilha,�&l...

Felipeucc · Answer

Temos video-aulas na clube delphi que ensinam a trabalhar com o excel//www.devmedia.com.br/articles/viewcomp.asp?comp=6006D� uma olhadinha, a v�deo-aula � boa (tem 3 partes)...

Djjunior · Answer

vc tamb�m pode salvar com csv, que qualquer aplicativo de �planilhas� abrir� e ser� mais f�cil trabalhar.

PS.: csv � um arquivo separado por ; portanto a fun��o seria muito simples tipo e gen�rica funcionando para qualquer qry:

function ExportToCSV(qry: TQuery; NomeArq: String);
var i integer;
     linha: string;
     texto: TStringList;
begin
   Texto := TstringList.Create;
with qry do begin
//Primeiro coloca os Titulos
   for i := 0 to fieldsCount - 1 do 
      linha := linha + Field[i].DisplayLabel + �;� ;
   Texto.Lines.Add(Linha);      

//Agora joga os registros
   while not eof do begin
      linha := ��;
      for i := 0 to fieldsCount - 1 do 
         linha := linha + Field[i].AsString + �;� ;
      Texto.Lines.Add(Linha);      
      next;
   end;
   Texto.SaveTofile(NomeArq);

end;

Aroldo Zanela · Answer

Colega,Outra alternativa � utilizar um filtro ou gerador de relat�rios com op��o de exporta��o para o Excel. Um op��o free � o FortesReport....

Asales · Answer

Ol� Etspaz,eu utilizo o component mxExports da www.maxcomponents.net que acho f�cil de usar pois eh s� selecionar o dataset a ser exportado....

Steve_narancic · Answer

Tamb�m pode utilizar os componentes da palheta [b:d220eccc76]Servers[/b:d220eccc76]....

F�rum exportar dados para o excel #353365