将DELPHI中把数据库中数据导出到EXCEL中

使用Delphi   控件方法  
  在Form中分别放入ExcelApplication,   ExcelWorkbook和ExcelWorksheet。    
   
  1）     打开Excel    
  ExcelApplication1.Connect;  
   
  2)   显示当前窗口：  
  ExcelApplication1.Visible[0]:=True;  
   
  3)   更改   Excel   标题栏：  
  ExcelApplication1.Caption   :=   '应用程序调用   Microsoft   Excel';  
   
  4)   添加新工作簿：  
  ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));  
     
  5)   添加新工作表：  
  var   Temp_Worksheet:   _WorkSheet;  
  begin  
  Temp_Worksheet:=ExcelWorkbook1.  
  WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0)   as   _WorkSheet;  
  ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);  
  End;  
     
  6)   打开已存在的工作簿：  
  ExcelApplication1.Workbooks.Open   (c:/a.xls  
  EmptyParam,EmptyParam,EmptyParam,EmptyParam,  
  EmptyParam,EmptyParam,EmptyParam,EmptyParam,  
          EmptyParam,EmptyParam,EmptyParam,EmptyParam,0)  
   
  7)   设置第2个工作表为活动工作表：  
  ExcelApplication1.WorkSheets[2].Activate;     或  
  ExcelApplication1.WorksSheets[   'Sheet2'   ].Activate;  
   
  8)   给单元格赋值：  
  ExcelApplication1.Cells[1,4].Value   :=   '第一行第四列';  
   
  9)   设置指定列的宽度（单位：字符个数），以第一列为例：  
  ExcelApplication1.ActiveSheet.Columns[1].ColumnsWidth   :=   5;  
   
  10)   设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：  
  ExcelApplication1.ActiveSheet.Rows[2].RowHeight