Exportar dados do Firebird para excel

[Ceroni 0]

Bom dia pessoal...

 

Sou iniciante em Delphi e gostaria da ajuda de vcs para um problema que acredito eu, seja simples.

Preciso exportar alguns dados do firebird para um arquivo em excel.

Tenho o select pronto no banco e preciso somente passar uma data inicial e uma data final como parâmetro para exportar os dados.

A tela terá então, somente dois campos de data inicial e data final e o botão para exportar.

 

Se alguém tiver um passo a passo, ficaria agradecido!!!!

 

Obrigado.

[bdexterholland 0]

Você pode exportar o conteúdo para CSV, formato que o excel reconhece bem.

 

Faça um loop que percorra seu select e para cada registro formate os campos em uma linha separando cada campo por um , (vírgula) ou ; (ponto vírgula)

 

While not IBQuery1.EOF do
 begin
   MeuStringList.Lines.Add(IBQuery1.FieldByName('Campo1').AsString + ';' +
                           IBQuery1.FieldByName('Campo2').AsString + ';' {repetindo até atendender o todos os campos necessários});
 end;
MeuStringList.Lines.SaveToFile('c:\MeuArquivoCSV.CSV');
//MeuStringList.SaveToFile('c:\MeuArquivoCSV.CSV');