¿Cómo exportar de BD a excel en delphi2009?

[kapcomx]

que tal Koiji espero te sirva este ejemplo:

Código Delphi [-]
ExcelApplication1.Connect; 
ExcelApplication1.Visible[0] := false; 
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0)); 
excelworkbook1.Author[0]:='Sistema Informatico XXXXXXXX'; 
ExcelWorksheet1.ConnectTo(ExcelApplication1.Sheets[1] as _WorkSheet); 
excelworksheet1.Range['A1','d1'].MergeCells :=true; 
excelworksheet1.Range['A3','d3'].MergeCells :=true; 
excelworksheet1.Range['A1','c3'].HorizontalAlignment:=xlHAlignCenter  ;  
//excelworksheet1.Range['b7','b7'].HorizontalAlignment:=xlHAlignCenter  ;  
excelworksheet1.Range['b4','b5'].HorizontalAlignment:=xlHAlignCenter  ; 
excelworksheet1.Range['A9','c9'].HorizontalAlignment:=xlHAlignCenter  ; 
excelworksheet1.Range['c4','d5'].HorizontalAlignment:=xlHAlignRight; 
excelworksheet1.Range['B1','B1'].ColumnWidth :=30; 
excelworksheet1.Range['c1','c1'].ColumnWidth :=80; 
excelworksheet1.cells.item[1,1].value2:='XXXXXXXXXXXXX SA DE CV'; 
excelworksheet1.cells.item[3,1].value2:='Lista de Productos para Verificar Existencia'; 
excelworksheet1.cells.item[4,3].value2:= 'Fecha:'; 
excelworksheet1.cells.item[4,4].formula:= date(); 
excelworksheet1.cells.item[5,3].value2:= 'Folio Solicitud:'; 
excelworksheet1.cells.item[5,4].value2:= folio; 
excelworksheet1.cells.item[7,1].value2:= 'Proveedor:'; 
excelworksheet1.cells.item[7,2].value2:= dblckprov.text; 
excelworksheet1.cells.item[9,1].value2:='Cantidad'; 
excelworksheet1.cells.item[9,2].value2:='Código'; 
excelworksheet1.cells.item[9,3].value2:='Producto'; 
excelworksheet1.cells.item[9,4].value2:='Existencia'; 
excelworksheet1.Range['A9','D9'].interior.Color:=33023 ;            
//x=col dm.dstemporal.First;   
y:=10; 
x:=1;  
while not(dm.dstemporal.Eof) do 
begin  
  EXCELWORKSHEET1.Cells.ITEM[y,1].VALUE2:= x;              
  EXCELWORKSHEET1.Cells.ITEM[y,1].VALUE2:= dm.dstemporalcantidad.value;              
  EXCELWORKSHEET1.Cells.ITEM[y,2].VALUE2:= dm.dstemporalCLAVE.Value;              
  EXCELWORKSHEET1.Cells.ITEM[y,3].VALUE2:= dm.dstemporalDESCRIPCION.Value;                
  inc(y); 
  inc(x); 
  dm.dstemporal.Next; 
end;  
excelapplication1.ActiveWorkbook.SaveAs(ruta +'.xlsx',emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,1,emptyparam,emptyparam,emptyparam,e  mptyparam,emptyparam,0); 
ExcelApplication1.Quit; 
ExcelApplication1.Disconnect; 
ExcelApplication1.Free;

espero te sirva

p.d. Por cierto no sabia en cual de los tres mensajes contestar???????