Buscar por:

Exportar de deplhi p/ excel

Código

Procedure TF_CONSULTAS.btnEXPORTARClick(Sender: TObject);

var

  PLANILHA : Variant; 

  Linha : Integer;

Begin

 inherited;

                // qy_ocorre -----> minha query

 QY_OCORRE.Filtered := False;

 Linha :=2;

 PLANILHA := CreateOleObject('Excel.Application');

 PLANILHA.Caption := 'MINHA PLANILHA';

 PLANILHA.Visible := False;

 PLANILHA.WorkBooks.add(1);

          // TITULO DAS COLUNAS

 PLANILHA.Cells[1,1] := 'FOLDER';

 PLANILHA.Cells[1,2] := 'DATA';

 PLANILHA.Cells[1,3] := 'TIPO';

 PLANILHA.Cells[1,4] := 'ORIGEM';

 PLANILHA.Cells[1,5] := 'SETOR';

 PLANILHA.Cells[1,6] := 'STATUS';

 QY_OCORRE.DisableControls;

    // PRRENCHIMENTO DAS CÉLULAS COM OS VALORES DOS CAMPOS DA TABELA

 Try

    While not QYOCORRE.Eof do

    Begin

       PLANILHA.Cells[Linha,1]:= QY_OCORREFOLDER.Value;

       PLANILHA.Cells[linha,2] := QY_OCORREDATA.Value;

       PLANILHA.Cells[Linha,3] := QY_OCORRELKTIPO.Value;

       PLANILHA.Cells[Linha,4] := QY_OCORRELKORIGEM.Value;

       PLANILHA.Cells[Linha,5] := QY_OCORRELKSETOR.Value;

       PLANILHA.Cells[Linha,6] := QY_OCORRELKSTATUS.Value;

       Linha := Linha + 1;

       QY_OCORRE.Next;

     End;

     PLANILHA.Columns.AutoFit;

        // caso queira proteger a planilha com senha

//     PLANILHA.WorkBooks[1].Sheets[1].Protect(DrawingObjects := True, Contents:=true,

//     Scenarios := true, Password := '1234');

//     IF SaveDialog1.Execute then       // colocar um compnente SaveDialog no form

//        PLANILHA.WorkBooks[1].SaveAs(SaveDialog1.FileName);

     PLANILHA.Visible := True;

 Finally

    QY_OCORRE.EnableControls;

    PLANILHA := Unassigned;

 end; // TRY

End;