操作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[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;  

 

 下面的这个类中，主要完成的功能是从数据库中逐字段读出数据，设置格式后，在Excel中显示出来。  
   
  在这个类中，有两个参数传进来，一个是它的数据源，另一个是整个报表的标题字符串，具体看代码就应该知道了。  
   
  using   System;  
  using   System.Data;  
  using   Excel;  
   
  namespace   LogicLayer  
  {  
    ///   <summary>  
    ///   OutputExcel   的摘要说明  
    ///   </summary>  
    public   class   OutputExcel  
    {  
      public   OutputExcel(DataView   dv,string   str)  
      {  
        //  
        //   TODO:   在此处添加构造函数逻辑  
        //  
        Excel.Application   excel;  
        int   rowIndex=4;  
        int   colIndex=1;  
   
        Excel._Workbook   xBk;  
        Excel._Worksheet   xSt;  
   
        excel=   new   Excel.ApplicationClass();;  
        xBk   =   excel.Workbooks.Add(true);  
        xSt   =   (Excel._Worksheet)xBk.ActiveSheet;  
   
        //  
        //取得标题  
        //  
        foreach(DataColumn   col   in   dv.Table.Columns)  
        {  
          colIndex++;  
          excel.Cells[4,colIndex]   =   col.ColumnName;  
          xSt.get_Range(excel.Cells[4,colIndex],excel.Cells[4,colIndex]).HorizontalAlignment   =   Excel.XlVAlign.xlVAlignCenter;//设置标题格式为居中对齐  
        }  
   
        //  
        //取得表格中的数据  
        //  
        foreach(DataRowView   row   in   dv)  
        {  
          rowIndex   ++;  
          colIndex   =   1;  
          foreach(DataColumn   col   in   dv.Table.Columns)  
          {  
            colIndex   ++;  
            if(col.DataType   ==   System.Type.GetType("System.DateTime"))  
            {  
              excel.Cells[rowIndex,colIndex]   =   (Convert.ToDateTime(row[col.ColumnName].ToString())).ToString("yyyy-MM-dd");  
              xSt.get_Range(excel.Cells[rowIndex,colIndex],excel.Cells[rowIndex,colIndex]).HorizontalAlignment   =   Excel.XlVAlign.xlVAlignCenter;//设置日期型的字段格式为居中对齐  
            }  
            else  
            if(col.DataType   ==   System.Type.GetType("System.String"))  
            {  
              excel.Cells[rowIndex,colIndex]   =   "'"+row[col.ColumnName].ToString();  
              xSt.get_Range(excel.Cells[rowIndex,colIndex],excel.Cells[rowIndex,colIndex]).HorizontalAlignment   =   Excel.XlVAlign.xlVAlignCenter;//设置字符型的字段格式为居中对齐  
            }  
            else  
            {  
              excel.Cells[rowIndex,colIndex]   =   row[col.ColumnName].ToString();  
            }  
          }  
        }  
        //  
        //加载一个合计行  
        //  
        int   rowSum   =   rowIndex   +   1;  
        int   colSum   =   2;  
        excel.Cells[rowSum,2]   =   "合计";  
        xSt.get_Range(excel.Cells[rowSum,2],excel.Cells[rowSum,2]).HorizontalAlignment   =   Excel.XlHAlign.xlHAlignCenter;  
        //  
        //设置选中的部分的颜色  
        //  
        xSt.get_Range(excel.Cells[rowSum,colSum],excel.Cells[rowSum,colIndex]).Select();  
        xSt.get_Range(excel.Cells[rowSum,colSum],excel.Cells[rowSum,colIndex]).Interior.ColorIndex   =   19;//设置为浅黄色，共计有56种  
        //  
        //取得整个报表的标题  
        //  
        excel.Cells[2,2]   =   str;  
        //  
        //设置整个报表的标题格式  
        //  
        xSt.get_Range(excel.Cells[2,2],excel.Cells[2,2]).Font.Bold   =   true;  
        xSt.get_Range(excel.Cells[2,2],excel.Cells[2,2]).Font.Size   =   22;  
        //  
        //设置报表表格为最适应宽度  
        //  
        xSt.get_Range(excel.Cells[4,2],excel.Cells[rowSum,colIndex]).Select();  
        xSt.get_Range(excel.Cells[4,2],excel.Cells[rowSum,colIndex]).Columns.AutoFit();  
        //  
        //设置整个报表的标题为跨列居中  
        //  
        xSt.get_Range(excel.Cells[2,2],excel.Cells[2,colIndex]).Select();  
        xSt.get_Range(excel.Cells[2,2],excel.Cells[2,colIndex]).HorizontalAlignment   =   Excel.XlHAlign.xlHAlignCenterAcrossSelection;  
        //  
        //绘制边框  
        //  
        xSt.get_Range(excel.Cells[4,2],excel.Cells[rowSum,colIndex]).Borders.LineStyle   =   1;  
        xSt.get_Range(excel.Cells[4,2],excel.Cells[rowSum,2]).Borders[Excel.XlBordersIndex.xlEdgeLeft].Weight   =   Excel.XlBorderWeight.xlThick;//设置左边线加粗  
        xSt.get_Range(excel.Cells[4,2],excel.Cells[4,colIndex]).Borders[Excel.XlBordersIndex.xlEdgeTop].Weight   =   Excel.XlBorderWeight.xlThick;//设置上边线加粗  
        xSt.get_Range(excel.Cells[4,colIndex],excel.Cells[rowSum,colIndex]).Borders[Excel.XlBordersIndex.xlEdgeRight].Weight   =   Excel.XlBorderWeight.xlThick;//设置右边线加粗  
        xSt.get_Range(excel.Cells[rowSum,2],excel.Cells[rowSum,colIndex]).Borders[Excel.XlBordersIndex.xlEdgeBottom].Weight   =   Excel.XlBorderWeight.xlThick;//设置下边线加粗  
        //  
        //显示效果  
        //  
        excel.Visible=true;  
      }  
    }  
  }