Procedimento para Exportar um DataSet ou Query para Excel em Delphi – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Procedimento para Exportar um DataSet ou Query para Excel em Delphi





Simples exemplo que mostra como exportar dados para o Excel.

Importante!

É necessário o Excel estar instalado na máquina onde for
realizar a exportação.

Exemplo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure ExportarToExcel;
var 
  linha, coluna : integer;
  planilha : variant;
  valorcampo : string;
begin
 
  planilha:= CreateoleObject('Excel.Application');
  planilha.WorkBooks.add(1);
  planilha.caption := 'Exportando dados do dbGrid, dataset ou query para o Excel';
  planilha.visible := true;
 
  Query1.First;
  for linha := 0 to Query1.RecordCount - 1 do
  begin
    for coluna := 1 to Query1.FieldCount do
    begin
      valorcampo := Query1.Fields[coluna - 1].AsString;
      planilha.cells[linha + 2,coluna] := valorCampo;
    end;
    Query1.Next;
  end;
  for coluna := 1 to Query1.FieldCount do
  begin
    valorcampo := Query1.Fields[coluna - 1].DisplayLabel;
    planilha.cells[1,coluna] := valorcampo;
  end;
  planilha.columns.Autofit;
end;

Este procedimento é só um exemplo, você pode modifica-lo e melhorar-lo.
Uma sugestão é colocar parâmetros para utilizar ele de forma genérica.

Fonte: https://www.scriptbrasil.com.br/forum/topic/90117-exportar-dados-de-um-dbgrid-para-o-excel/

Facebook Comments

Posts Relacionados

  • Giovani Da Cruz
  • 278 views
  • 0 comentários
  • 21 de fevereiro de 2018

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo

© 2018 Infus Soluções em Tecnologia - Todos os Direitos Reservados