IMPORTAR DADOS DO CLIENT DATA SET PARA EXCEL

IMPORTAR DADOS DO CLIENT DATA SET PARA EXCEL

Abaixo segue um código para exportar os dados de um client data set para o excel:

var
linha : integer;
coluna : integer;
planilha : variant;
valorcampo : string;
begin
if not formConexao.cdsUnidade_medida.IsEmpty then
begin
planilha:= CreateoleObject('Excel.Application');
planilha.WorkBooks.add(1);
planilha.caption := 'Unidades de Medida';
planilha.visible := true;

formConexao.cdsUnidade_medida.ApplyUpdates(-1);
formConexao.cdsUnidade_medida.First;
for linha := 0 to formConexao.cdsUnidade_medida.RecordCount - 1 do
begin
for coluna := 1 to formConexao.cdsUnidade_medida.FieldCount do
begin
valorcampo := formConexao.cdsUnidade_medida.Fields[coluna - 1].AsString;
planilha.cells[linha + 2,coluna] := valorCampo;
end;
formConexao.cdsUnidade_medida.Next;
end;
for coluna := 1 to formConexao.cdsUnidade_medida.FieldCount do
begin
valorcampo := formConexao.cdsUnidade_medida.Fields[coluna - 1].DisplayLabel;
planilha.cells[1,coluna] := valorcampo;
end;
planilha.columns.Autofit;
end