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...
