由于EXCEL 2003有65536行数据的限制,故在超过这个限制时须分成多个Sheet来显示,本人通过网上部分资料加上自己的应用心得总结出以下方法,希望能为广大工友带来方便.

首先,如果您使用的是VS2005,则须引入Excel.dll文件;如果您使用的是VS2003,则引入Interop.Excel.dll文件,一般工程会自动引入.

然后,引用命名空间:using Excel;

最后添加方法:

   /// <summary>
   /// 将传入的DataSet数据导出至Excel文件
   /// </summary>
   /// <param name="ctl">DataGrid</param>
   public static void DataSet2Excel(DataSet ds)
   {
    int maxRow=ds.Tables[0].Rows.Count;
    string fileName=DateTime.Now.ToString("yyyyMMddhhmmss") + ".xls";//设置导出文件的名称

    DataView dv=new DataView(ds.Tables[0]);//将DataSet转换成DataView
    string fileURL=string.Empty;
    //调用方法将文件写入服务器,并获取全部路径
    fileURL=DataView2ExcelBySheet(dv,fileName);
    //获取路径后从服务器下载文件至本地
    HttpContext curContext=System.Web.HttpContext.Current; 
    curContext.Response.ContentType="application/vnd.ms-excel";
    curContext.Response.ContentEncoding=System.Text.Encoding.Default;
    curContext.Response.AppendHeader("Content-Disposition", ("attachment;filename=" + fileName));
    curContext.Response.Charset = "";

    curContext.Response.WriteFile(fileURL);
    curContext.Response.Flush();
    curContext.Response.End();
   }

   /// <summary>
   /// 分Sheet导出Excel文件
   /// </summary>
   /// <param name="dv">需导出的DataView</param>
   /// <returns>导出文件的路径</returns>
   private static string DataView2ExcelBySheet(DataView dv,string fileName)
   {
    int sheetRows=65535;//设置Sheet的行数,此为最大上限,本来是65536,因表头要占去一行
    int sheetCount = (dv.Table.Rows.Count - 1) / sheetRows + 1;//计算Sheet数

    GC.Collect();//垃圾回收

    Application excel;
    _Workbook xBk;
    _Worksheet xSt=null;
    excel = new ApplicationClass();
    xBk = excel.Workbooks.Add(true);
   
    //定义循环中要使用的变量
    int dvRowStart;
    int dvRowEnd;
    int rowIndex = 0;
    int colIndex = 0;
    //对全部Sheet进行操作
    for (int sheetIndex = 0; sheetIndex < sheetCount; sheetIndex++)
    {
     //初始化Sheet中的变量
     rowIndex = 1;
     colIndex = 1;
     //计算起始行
     dvRowStart = sheetIndex * sheetRows;
     dvRowEnd = dvRowStart + sheetRows-1;
     if (dvRowEnd > dv.Table.Rows.Count-1)
     {
      dvRowEnd = dv.Table.Rows.Count - 1;
     }
     //创建一个Sheet
     if (null == xSt)
     {
      xSt = (_Worksheet)xBk.Worksheets.Add(Type.Missing, Type.Missing, 1, Type.Missing);
     }
     else
     {
      xSt = (_Worksheet)xBk.Worksheets.Add(Type.Missing, xSt, 1, Type.Missing);
     }
     //设置Sheet的名称
     xSt.Name = "Expdata";
     if (sheetCount > 1)
     {
      xSt.Name += ((int)(sheetIndex + 1)).ToString();
     }
     //取得标题
     foreach (DataColumn col in dv.Table.Columns)
     {
      //设置标题格式
      xSt.get_Range(excel.Cells[rowIndex, colIndex], excel.Cells[rowIndex, colIndex]).HorizontalAlignment = XlVAlign.xlVAlignCenter; //设置标题居中对齐
      xSt.get_Range(excel.Cells[rowIndex, colIndex], excel.Cells[rowIndex, colIndex]).Font.Bold = true;//设置标题为粗体
      //填值,并进行下一列
      excel.Cells[rowIndex, colIndex++] = col.ColumnName;
     }
     //取得表格中数量
     int drvIndex;
     for(drvIndex=dvRowStart;drvIndex<=dvRowEnd;drvIndex++)
     {
      DataRowView row=dv[drvIndex];
      //新起一行,当前单元格移至行首
      rowIndex++;
      colIndex = 1;
      foreach (DataColumn col in dv.Table.Columns)
      {
       if (col.DataType == System.Type.GetType("System.DateTime"))
       {
        excel.Cells[rowIndex, colIndex] = (Convert.ToDateTime(row[col.ColumnName].ToString())).ToString("yyyy-MM-dd");
       }
       else if (col.DataType == System.Type.GetType("System.String"))
       {
        excel.Cells[rowIndex, colIndex] = "'" + row[col.ColumnName].ToString();
       }
       else
       {
        excel.Cells[rowIndex, colIndex] = row[col.ColumnName].ToString();
       }
       colIndex++;
      }
     }
     //使用最佳宽度
     Range allDataWithTitleRange = xSt.get_Range(excel.Cells[1, 1], excel.Cells[rowIndex, colIndex-1]);
     allDataWithTitleRange.Select();
     allDataWithTitleRange.Columns.AutoFit();
     allDataWithTitleRange.Borders.LineStyle = 1;//将导出Excel加上边框
    }
    //设置导出文件在服务器上的文件夹
    string exportDir="~/ExcelFile/";//注意:该文件夹您须事先在服务器上建好才行
    //设置文件在服务器上的路径
    string absFileName = HttpContext.Current.Server.MapPath(System.IO.Path.Combine(exportDir,fileName));
    xBk.SaveCopyAs(absFileName);
    xBk.Close(false, null, null);
    excel.Quit();

    System.Runtime.InteropServices.Marshal.ReleaseComObject(xBk);
    System.Runtime.InteropServices.Marshal.ReleaseComObject(excel);
    System.Runtime.InteropServices.Marshal.ReleaseComObject(xSt);

    xBk = null;
    excel = null;
    xSt = null;
    GC.Collect();
    //返回写入服务器Excel文件的路径
    return absFileName;
   }

说明:如果您需要将导出文件保存到服务器,则只需采用DataView2ExcelBySheet方法即可,且不需返回路径,直接在服务器的该路径下即可找到文件.

創作者介紹
創作者 shadow 的頭像
shadow

資訊園

shadow 發表在 痞客邦 留言(0) 人氣()