Exportação de dados para Excel

Neste artigo que irei disponibilizar veremos como fazer uma exportação de dados para o Excel!
Pois hoje quase todos os clientes utilizam esta opção de exportar os dados de uma determinada consulta
para o excel que é um lance bem simples...
Então para que possamos fazer esta exportação iremos utilizar um componente da Native Excel que vc podem fazer o download atráves deste link: http://www.nika-soft.com/dwnld.htm

Vamos então ao passos que devemos seguir..
Depois de nossa consulta já pronta, td certinho o DbGrid já recebendo os valores que queremos exportar para o execel devemos incluir um componente da paleta native excel o TDBGrid2Excel isso para aqueles que forem utilizar os componentes da native, mas fiquem a vontade para escolherem os teus componentes...
Mas o nosso exemplo tem por base os componenetes da native Excel..
Depois de incluido o componente TDBGrid2Excel, devemos incluir um botão que será o responsável por efetuar a exportação dos dados para o excel e um Gauge para que possamos saber como está o nosso processo de exportação.
Lembrando que devemos ligar a propriedade DbGrid do nosso componente TDBGrid2Excel para a DBGrid que queremos fazer a exportação...
No evento onclick deste botão inclua o seguinte código:

Var
QtdRegistros : Integer;
begin
  QtdRegistros := DBGrid1.DataSource.DataSet.RecordCount;
  Gauge1.MaxValue := QtdRegistros;
  if QtdRegistros = 0 then begin
     MessageDlg('Não existem registros para efetuar a exportação!', mtWarning, [mbOK], 0);
     Exit;
  end;
  DBGrid2Excel1.Workbook := nil;  //Limpando o nosso ambiente no excel
  DBGrid2Excel1.WorkSheetName := 'Exportação de dados de Login';
  DBGrid2Excel1.ExportDBGrid;
  DBGrid2Excel1.SaveAs('C:\Teste.xls'); //Local onde será salva nossa planilha
  MessageDlg('Exportação efetuada com sucesso!', mtInformation, [mbOK], 0);

Explicando o código:
WorkSheetName = Esta propriedade é responsável por renomear o nome da nossa aba.
ExportDBGrid = Esta propriedade é responsável efetuar a exportação dos dados.
SaveAs = Esta propriedade é reponsável por informar o local onde será salva a nossa planilha com
o referido local e nome passado para esta propriedade.. No meu exemplo indiquei que será salva na Unidade C com o nome de Teste.xls

É isso aí espero que tenham gostado!
Até a próxima...