.net中Excel的操作

 
这是一个在.net中Excel基本的操作,代码有参考价值. 但是缺点是写入速度太慢.
1. 首先要导入Com文件Microsoft Excel 11.0 Object Library. 或者昌我提供的下载资源的Excel.dll,建议使用我的那一个Excel.dll,是Office2000 的,兼容性比较好一些.

2. 代码如下

1. /// <summary>
2.     /// 导出Excel
3.     /// </summary>
4.     /// <param name="dt">要导出的DataTable</param>
5.     public void ExportToExcel(System.Data.DataTable dt)
6.     {
7.         if (dt == null) return;
8.         Excel.Application xlApp = new Excel.Application();
9.         if (xlApp == null)
10.         {
11.             lblMsg.Text = "无法创建Excel对象，可能您的机子未安装Excel";
12.             return;
13.         }
14.         Excel.Workbooks workbooks = xlApp.Workbooks;
15.         Excel.Workbook workbook = workbooks.Add(Excel.XlWBATemplate.xlWBATWorksheet);
16.         Excel.Worksheet worksheet = (Excel.Worksheet)workbook.Worksheets[1];//取得sheet1
17.         Excel.Range range = null;
18.         long totalCount = dt.Rows.Count;
19.         long rowRead = 0;
20.         float percent = 0;
22.         //写入标题
23.         for (int i = 0; i < dt.Columns.Count; i++)
24.         {
25.             worksheet.Cells[1, i + 1] = dt.Columns[i].ColumnName;
26.             range = (Excel.Range)worksheet.Cells[1, i + 1];
27.             //range.Interior.ColorIndex = 15;//背景颜色
28.             range.Font.Bold = true;//粗体
29.             range.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter;//居中
30.             //加边框
31.             range.BorderAround(Excel.XlLineStyle.xlContinuous, Excel.XlBorderWeight.xlThin, Excel.XlColorIndex.xlColorIndexAutomatic, null);
32.             //range.ColumnWidth = 4.63;//设置列宽
33.             //range.EntireColumn.AutoFit();//自动调整列宽
34.             //r1.EntireRow.AutoFit();//自动调整行高
36.         }
37.         //写入内容
38.         for (int r = 0; r < dt.Rows.Count; r++)
39.         {
40.             for (int i = 0; i < dt.Columns.Count; i++)
41.             {
42.                 worksheet.Cells[r + 2, i + 1] = dt.Rows[r][i];
43.                 range = (Excel.Range)worksheet.Cells[r + 2, i + 1];
44.                 range.Font.Size = 9;//字体大小
45.                 //加边框
46.                 range.BorderAround(Excel.XlLineStyle.xlContinuous, Excel.XlBorderWeight.xlThin, Excel.XlColorIndex.xlColorIndexAutomatic, null);
47.                 range.EntireColumn.AutoFit();//自动调整列宽
48.             }
49.             rowRead++;
50.             percent = ((float)(100 * rowRead)) / totalCount;
51.             System.Windows.Forms.Application.DoEvents();
52.         }
54.         range.Borders[Excel.XlBordersIndex.xlInsideHorizontal].Weight = Excel.XlBorderWeight.xlThin;
55.         if (dt.Columns.Count > 1)
56.         {
57.             range.Borders[Excel.XlBordersIndex.xlInsideVertical].Weight = Excel.XlBorderWeight.xlThin;
58.         }
60.         try
61.         {
62.             workbook.Saved = true;
63.             workbook.SaveCopyAs(System.Web.HttpRuntime.AppDomainAppPath + "XMLFiles//EduceWordFiles//" + this.Context.User.Identity.Name + ".xls");
64.         }
65.         catch (Exception ex)
66.         {
67.             lblMsg.Text = "导出文件时出错,文件可能正被打开！/n" + ex.Message;
68.         }
70.         xlApp.Quit();
71.         GC.Collect();//强行销毁

3.如果是放在IIS中,现在是不能到出的,还要配置一下
方案一:在Web.config中添加
          <system.web>
                <identity impersonate="true" userName="管理员名" password="密码" />
          <system.web>
方案二:
          (1)在运行->dcomcnfg打开组件服务
          (2) 在控制台根目录->组件服务->计算机->我的电脑->DCOM配置->MicrosoftExcel应用程序->属性->安全
          (3)启动和激活权限->使用自定义->添加一个ASPNET用户,还有打开本地启动和本地激活
               访问权限->使用自定义->添加一个ASPNET用户,还有打开本地访问和远程访问