ExcelN多属性设置

(一)     使用动态创建的方法   
     
   首先创建     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[8].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[8].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二维图’       
     
   6）改变二维图的标题字体大小   
   achart.Chart.ChartTitle.Font.size:=6;