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：