Como enviar dados do Delphi para o Excel

  procedure TFormCTEmbarque.SpeedButton1Click(Sender: TObject);
  var   
    Excel : Variant;   
    Linha:Integer;

  begin   
    Excel := CreateOleObject('Excel.Application');   
    Excel.Visible :=True;   {Excel.Workbooks.Add;}   
    Excel.WorkBooks.Open('\\SERVIDOR\Cotacao\Gerar.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('\\SERVIDOR\Cotacao\Controle.xls');
    DMCotacao.TBCotacao.Refresh;end;
  

Aprenda neste curso como manipular uma planilha do Excel utilizando, em conjunto com esse programa, a biblioteca ComObj no Delphi.

Aqui você verá na prática como exportar os dados vindos de um DataSet para uma planilha, armazenando nas células correspondentes os mais variados tipos, como datas, moedas, números, textos e ainda fórmulas. Veja também como inserir novas abas, bem como definir uma apresentação para o seu documento formatando a aparência das suas células.