Delphi导出数据到Excel

 一)   使用动态建立的方法   
    
  首先建立   Excel   对象，使用ComObj:   
  var   ExcelApp:   Variant;   
  ExcelApp   :=   CreateOleObject(   'Excel.Application'   );   
    
  1)   显示当前窗口：   
  ExcelApp.Visible   :=   True;   
    
  2)   更改   Excel   标题栏：   
  ExcelApp.Caption   :=   '应用程序调用   Microsoft   Excel';   
    
  3)   添加新工做簿：   
  ExcelApp.WorkBooks.Add;   
    
  4)   打开已存在的工做簿：   
  ExcelApp.WorkBooks.Open(   'C:\Excel\Demo.xls'   );   
    
  5)   设置第2个工做表为活动工做表：   
  ExcelApp.WorkSheets[2].Activate;       
  或     
  ExcelApp.WorksSheets[   'Sheet2'   ].Activate;   
    
  6)   给单元格赋值：   
  ExcelApp.Cells[1,4].Value   :=   '第一行第四列';   
    
  7)   设置指定列的宽度（单位：字符个数），以第一列为例：   
  ExcelApp.ActiveSheet.Columns[1].ColumnsWidth   :=   5;   
    
  8)   设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：   
  ExcelApp.ActiveSheet.Rows[2].RowHeight   :=   1/0.035;   //   1厘米   
    
  9)   在第8行以前插入分页符：   
  ExcelApp.WorkSheets[1].Rows.PageBreak   :=   1;   
    
  10)   在第8列以前删除分页符：   
  ExcelApp.ActiveSheet.Columns[4].PageBreak   :=   0;   
    
  11)   指定边框线宽度：   
  ExcelApp.ActiveSheet.Range[   'B3:D4'   ].Borders[2].Weight   :=   3;   
  1-左         2-右       3-顶         4-底       5-斜(   \   )           6-斜(   /   )   
    
  12)   清除第一行第四列单元格公式：   
  ExcelApp.ActiveSheet.Cells[1,4].ClearContents;   
    
  13)   设置第一行字体属性：   
  ExcelApp.ActiveSheet.Rows[1].Font.Name   :=   '隶书';   
  ExcelApp.ActiveSheet.Rows[1].Font.Color     :=   clBlue;   
  ExcelApp.ActiveSheet.Rows[1].Font.Bold       :=   True;   
  ExcelApp.ActiveSheet.Rows[1].Font.UnderLine   :=   True;   
    
  14)   进行页面设置：   
    
  a.页眉：   
          ExcelApp.ActiveSheet.PageSetup.CenterHeader   :=   '报表演示';   
  b.页脚：   
          ExcelApp.ActiveSheet.PageSetup.CenterFooter   :=   '第&P页';   
  c.页眉到顶端边距2cm：   
          ExcelApp.ActiveSheet.PageSetup.HeaderMargin   :=   2/0.035;   
  d.页脚到底端边距3cm：   
          ExcelApp.ActiveSheet.PageSetup.HeaderMargin   :=   3/0.035;   
  e.顶边距2cm：   
          ExcelApp.ActiveSheet.PageSetup.TopMargin   :=   2/0.035;   
  f.底边距2cm：   
          ExcelApp.ActiveSheet.PageSetup.BottomMargin   :=   2/0.035;   
  g.左边距2cm：   
          ExcelApp.ActiveSheet.PageSetup.LeftMargin   :=   2/0.035;   
  h.右边距2cm：   
          ExcelApp.ActiveSheet.PageSetup.RightMargin   :=   2/0.035;   
  i.页面水平居中：   
          ExcelApp.ActiveSheet.PageSetup.CenterHorizontally   :=   2/0.035;   
  j.页面垂直居中：   
          ExcelApp.ActiveSheet.PageSetup.CenterVertically   :=   2/0.035;   
  k.打印单元格网线：   
          ExcelApp.ActiveSheet.PageSetup.PrintGridLines   :=   True;   
    
  15)   拷贝操做：   
    
  a.拷贝整个工做表：   
          ExcelApp.ActiveSheet.Used.Range.Copy;   
  b.拷贝指定区域：   
          ExcelApp.ActiveSheet.Range[   'A1:E2'   ].Copy;   
  c.从A1位置开始粘贴：   
          ExcelApp.ActiveSheet.Range.[   'A1'   ].PasteSpecial;   
  d.从文件尾部开始粘贴：   
          ExcelApp.ActiveSheet.Range.PasteSpecial;   
    
  16)   插入一行或一列：   
  a.   ExcelApp.ActiveSheet.Rows[2].Insert;   
  b.   ExcelApp.ActiveSheet.Columns[1].Insert;   
    
  17)   删除一行或一列：   
  a.   ExcelApp.ActiveSheet.Rows[2].Delete;   
  b.   ExcelApp.ActiveSheet.Columns[1].Delete;   
    
  18)   打印预览工做表：   
  ExcelApp.ActiveSheet.PrintPreview;   
    
  19)   打印输出工做表：   
  ExcelApp.ActiveSheet.PrintOut;   
    
  20)   工做表保存：   
  if   not   ExcelApp.ActiveWorkBook.Saved   then   
        ExcelApp.ActiveSheet.PrintPreview;   
    
  21)   工做表另存为：   
  ExcelApp.SaveAs(   'C:\Excel\Demo1.xls'   );   
    
  22)   放弃存盘：   
  ExcelApp.ActiveWorkBook.Saved   :=   True;   
    
  23)   关闭工做簿：   
  ExcelApp.WorkBooks.Close;   
    
  24)   退出   Excel：   
  ExcelApp.Quit;   
    
  (二)   使用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   :=   1/0.035;   //   1厘米   
    
  11)   在第8行以前插入分页符：   
  ExcelApplication1.WorkSheets[1].Rows.PageBreak   :=   1;   
    
  12)   在第8列以前删除分页符：   
  ExcelApplication1.ActiveSheet.Columns[4].PageBreak   :=   0;   
    
  13)   指定边框线宽度：   
  ExcelApplication1.ActiveSheet.Range[   'B3:D4'   ].Borders[2].Weight   :=   3;   
  1-左         2-右       3-顶         4-底       5-斜(   \   )           6-斜(   /   )   
    
  14)   清除第一行第四列单元格公式：   
  ExcelApplication1.ActiveSheet.Cells[1,4].ClearContents;   
    
  15)   设置第一行字体属性：   
  ExcelApplication1.ActiveSheet.Rows[1].Font.Name   :=   '隶书';   
  ExcelApplication1.ActiveSheet.Rows[1].Font.Color     :=   clBlue;   
  ExcelApplication1.ActiveSheet.Rows[1].Font.Bold       :=   True;   
  ExcelApplication1.ActiveSheet.Rows[1].Font.UnderLine   :=   True;   
    
  16)   进行页面设置：   
    a.页眉：   
          ExcelApplication1.ActiveSheet.PageSetup.CenterHeader   :=   '报表演示';   
  b.页脚：   
          ExcelApplication1.ActiveSheet.PageSetup.CenterFooter   :=   '第&P页';   
  c.页眉到顶端边距2cm：   
          ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin   :=   2/0.035;   
  d.页脚到底端边距3cm：   
          ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin   :=   3/0.035;   
  e.顶边距2cm：   
          ExcelApplication1.ActiveSheet.PageSetup.TopMargin   :=   2/0.035;   
  f.底边距2cm：   
          ExcelApplication1.ActiveSheet.PageSetup.BottomMargin   :=   2/0.035;   
  g.左边距2cm：   
          ExcelApplication1.ActiveSheet.PageSetup.LeftMargin   :=   2/0.035;   
  h.右边距2cm：   
          ExcelApplication1.ActiveSheet.PageSetup.RightMargin   :=   2/0.035;   
  i.页面水平居中：   
          ExcelApplication1.ActiveSheet.PageSetup.CenterHorizontally   :=   2/0.035;   
  j.页面垂直居中：   
          ExcelApplication1.ActiveSheet.PageSetup.CenterVertically   :=   2/0.035;   
  k.打印单元格网线：   
          ExcelApplication1.ActiveSheet.PageSetup.PrintGridLines   :=   True;   
    
  17)   拷贝操做：   
    
  a.拷贝整个工做表：   
          ExcelApplication1.ActiveSheet.Used.Range.Copy;   
    
  b.拷贝指定区域：   
          ExcelApplication1.ActiveSheet.Range[   'A1:E2'   ].Copy;   
    
  c.从A1位置开始粘贴：   
          ExcelApplication1.ActiveSheet.Range.[   'A1'   ].PasteSpecial;   
    
  d.从文件尾部开始粘贴：   
          ExcelApplication1.ActiveSheet.Range.PasteSpecial;   
    
  18)   插入一行或一列：   
  a.   ExcelApplication1.ActiveSheet.Rows[2].Insert;   
  b.   ExcelApplication1.ActiveSheet.Columns[1].Insert;   
    
  19)   删除一行或一列：   
  a.   ExcelApplication1.ActiveSheet.Rows[2].Delete;   
  b.   ExcelApplication1.ActiveSheet.Columns[1].Delete;   
    
  20)   打印预览工做表：   
  ExcelApplication1.ActiveSheet.PrintPreview;   
    
  21)   打印输出工做表：   
  ExcelApplication1.ActiveSheet.PrintOut;   
    
  22)   工做表保存：   
  if   not   ExcelApplication1.ActiveWorkBook.Saved   then   
        ExcelApplication1.ActiveSheet.PrintPreview;   
    
  23)   工做表另存为：   
  ExcelApplication1.SaveAs(   'C:\Excel\Demo1.xls'   );   
    
  24)   放弃存盘：   
  ExcelApplication1.ActiveWorkBook.Saved   :=   True;   
    
  25)   关闭工做簿：   
  ExcelApplication1.WorkBooks.Close;   
    
  26)   退出   Excel：   
  ExcelApplication1.Quit;   
  ExcelApplication1.Disconnect;   
    
  (三)   使用Delphi   控制Excle二维图   
  在Form中分别放入ExcelApplication,   ExcelWorkbook和ExcelWorksheet   
  var   asheet1,achart,   range:variant;   
    
  1）选择当第一个工做薄第一个工做表   
  asheet1:=ExcelApplication1.Workbooks[1].Worksheets[1];   
    
  2）增长一个二维图   
  achart:=asheet1.chartobjects.add(100,100,200,200);   
    
  3）选择二维图的形态   
  achart.chart.charttype:=4;   
    
  4）给二维图赋值   
  series:=achart.chart.seriescollection;   
  range:=sheet1!r2c3:r3c9;   
  series.add(range,true);   
      
  5）加上二维图的标题   
  achart.Chart.HasTitle:=True;   
  achart.Chart.ChartTitle.Characters.Text:=’   Excle二维图’