Delphi dicas

Exportar de deplhi p/ excel

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;

por : Renato Faria