Buscar por:

Como enviar dados do delphi para o excel?

Código

Procedure TFormCTEmbarque.SpeedButton1Click(Sender: TObject); 

var 

Excel : Variant; 

Linha:Integer; 

begin 

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

Excel.Visible :=True; 

{Excel.Workbooks.Add;} 

Excel.WorkBooks.Open('\SERVIDORCotacaoGerar.xls'); 

Excel.WorkBooks[1].Sheets[1].Cells[2,7]:=Now; 

Excel.WorkBooks[1].Sheets[1].Cells[3,2]:=DMCotacao.TBLiberaRemetente.Value; 

Excel.WorkBooks[1].Sheets[1].Cells[3,5]:=DMCotacao.TBLiberaColeta.Value + 

'-' +DMCotacao.TBLiberaUF_Coleta.Value; 

Excel.WorkBooks[1].Sheets[1].Cells[4,2]:=DMCotacao.TBLiberaDestinatario.Value; 

Excel.WorkBooks[1].Sheets[1].Cells[4,5]:=DMCotacao.TBLiberaDestino.Value + 

'-' +DMCotacao.TBLiberaUF_Destino.Value; 

Excel.WorkBooks[1].Sheets[1].Cells[5,2]:=DMCotacao.TBLiberaQuantidade.AsString; 

Excel.WorkBooks[1].Sheets[1].Cells[5,5]:=DMCotacao.TBLiberaFreteEmpresa.AsString; 

Excel.WorkBooks[1].Sheets[1].Cells[5,7]:=DMCotacao.TBLiberaContrato.AsString; 

Excel.WorkBooks[1].Sheets[1].Cells[6,2]:=FormCTEmbarque.Edit2.Text; 

Excel.WorkBooks[1].Sheets[1].Cells[6,5]:=FormCTEmbarque.Edit3.Text; 

Excel.WorkBooks[1].Sheets[1].Cells[6,7]:=FormCTEmbarque.Edit4.Text; 

Excel.WorkBooks[1].Sheets[1].Cells[7,2]:=DMCotacao.TBLiberaObservacao.Value; 

DmCotacao.QCTEmbarque.Open; 

Linha:=10; 

While not DMCotacao.QCTEmbarque.Eof do 

Begin 

Excel.WorkBooks[1].Sheets[1].Cells[Linha,2]:=DMCotacao.QCTEmbarqueCTRC.Value; 

Excel.WorkBooks[1].Sheets[1].Cells[Linha,3]:=DMCotacao.QCTEmbarqueNotaFiscal.Value; 

Excel.WorkBooks[1].Sheets[1].Cells[Linha,4]:=DMCotacao.QCTEmbarquePeso.Value; 

Excel.WorkBooks[1].Sheets[1].Cells[Linha,5]:=DMCotacao.QCTEmbarquePlaca.Value; 

Excel.WorkBooks[1].Sheets[1].Cells[Linha,6]:=DMCotacao.QCTEmbarqueData.Value; 

DmCotacao.QCTEmbarque.Next; 

Linha:=Linha+1; 

end; 

Excel.WorkBooks[1].SaveAs('\SERVIDORCotacaoControle.xls'); 

DMCotacao.TBCotacao.Refresh; 

end;