正文

导出数据到Excel方法总结

IP云
IP云V管理员/5 阅读
09/15
提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

一，问题的提出

近来在网上经常有人问怎样把数据导出到Excel中?针对这个问题网上也有很多资料。大都比较的琐碎。本人当前从事的项目中，刚好涉及到这些内容。就顺便做了一些归纳整理。共享给大家。避免大家再花费很多时间研究这个老生长谈的问题。

二，解决方法

1.       用NPOI导出数据到Excel。

简介：NPOI是一个开源的dotnet类库，官方网站：http://npoi.codeplex.com/。

优点：支持Excel 2003格式，读写速度快，基于.NET 2.0

缺点：不支持Excel 2007以上版本文件，功能有限，有时Excel宏会被破坏，可能是NPOI的Bug。

2.       微软Excel，Com组件技术。

简介：利用微软提供的程序集Microsoft.Office.Interop.Excel,dll和Office.dll.必须安装Office软件。

优点：功能强大，有很多官方资料可以参考。支持office2003，2007等版本。

缺点：访问速度慢。有时残留Excel进程问题。

3.       VBA+ASPX技术实现。

简介：VBA相信大家并不陌生，即是我们常说的Excel中的宏。

优点：很容易控制Excel，实现Excel的高级应用。

缺点：VBA必须与Excel共存。寄生与Excel文件中，移植性很差。

4.       OleDb数据访问技术。

简介：OleDb是微软提供的一种数据访问技术。

优点：为用户提供了一种统一的方法来访问所有不同种类的数据源。能够利用SQL查询优势。

缺点：OleDb依赖于数据驱动的支持。容易破坏Excel文件，Excel中的sheet被看作数据源，相当于数据库中的表。Excel单元格中的批注无法读取。

三，具体实现代码

基本思路都是，打开文件—>写文件—>关闭文件。

1， 用NPOI导出数据到Excel。

关键代码：

  1. public void RenderDataTableToExcel(DataTable SourceTable)
  2. {
  3. //创建对象
  4. HSSFWorkbook workbook = new HSSFWorkbook();
  5. HSSFSheet sheet = (HSSFSheet)workbook.CreateSheet();
  6. HSSFRow headerRow = (HSSFRow)sheet.CreateRow(0);
  7. //获得表头名称
  8. foreach (DataColumn column in SourceTable.Columns)
  9. {
  10. headerRow.CreateCell(column.Ordinal).SetCellValue(column.ColumnName);
  11. }
  12. //写入数据
  13. int rowIndex = 1;
  14. foreach (DataRow row in SourceTable.Rows)
  15. {
  16. HSSFRow dataRow = (HSSFRow)sheet.CreateRow(rowIndex);
  17. foreach (DataColumn column in SourceTable.Columns)
  18. {
  19. dataRow.CreateCell(column.Ordinal).SetCellValue(row[column].ToString());
  20. }
  21. rowIndex++;
  22. }
  23. //保存
  24. string path = Server.MapPath("~/UpFiles/ReportResult/") + "test.xls";
  25. FileStream file = new FileStream(path, FileMode.Create);
  26. workbook.Write(file);
  27. //关闭文件，释放对象
  28. file.Close();
  29. sheet = null;
  30. headerRow = null;
  31. workbook = null;
  32. }

2， 微软Excel，Com组件技术。

关键代码：

  1. [DllImport("User32.dll", CharSet = CharSet.Auto)]
  2. public static extern int GetWindowThreadProcessId(IntPtr hwnd, out   int ID);
  3. protected void Button1_Click(object sender, EventArgs e)
  4. {
  5. //文件路径
  6. string path = Server.MapPath("~/UpFiles/ReportTemplate/") + "test1.xlsx";
  7. //写入Excel的数据
  8. List<string> lst = new List<string>();
  9. lst.Add("A12");
  10. lst.Add("A22");
  11. lst.Add("A32");
  12. lst.Add("A42");
  13. lst.Add("A55");
  14. lst.Add("A5");
  15. //定义Excel操作对象
  16. Microsoft.Office.Interop.Excel.Application app;
  17. Microsoft.Office.Interop.Excel.Workbook workBook;
  18. Microsoft.Office.Interop.Excel.Worksheet workSheet;
  19. //创建一个Application对象并使其可见
  20. app = new Microsoft.Office.Interop.Excel.ApplicationClass();
  21. app.Visible = false;
  22. object missing = Missing.Value;
  23. //打开文件，得到WorkBook对象
  24. workBook = app.Workbooks.Open(path, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing);
  25. //得到WorkSheet对象
  26. workSheet = (Microsoft.Office.Interop.Excel.Worksheet)workBook.Sheets.get_Item(2);
  27. for (int j = 0; j < lst.Count; j++)
  28. {
  29. //写入单元格
  30. workSheet.Cells[j + 1, 1] = lst[j];
  31. }
  32. //保存
  33. workBook.Save();
  34. //杀Excel进程。
  35. IntPtr t = new IntPtr(app.Hwnd);
  36. int k = 0;
  37. GetWindowThreadProcessId(t, out   k);
  38. System.Diagnostics.Process p = System.Diagnostics.Process.GetProcessById(k);
  39. p.Kill();
  40. }

3， VBA+ASPX技术实现。

关键代码：

  1. Sub SendRequest(xmlRequest As String)
  2. Dim dom As New MSXML2.DOMDocument
  3. Dim httprequest As MSXML2.XMLHTTP30
  4. Dim asp_server As String
  5. Set httprequest = New MSXML2.XMLHTTP30
  6. '发送到服务器地址
  7. asp_server = "http://localhost:1408/VBAExcelGetData.aspx"
  8. 'POST到服务器
  9. httprequest.Open "POST", asp_server, False
  10. httprequest.send xmlRequest
  11. If httprequest.Status = 200 Then
  12. dom.LoadXML (httprequest.responseXML.XML)
  13. End If
  14. '显示结果
  15. Dim k, j As Integer
  16. Dim s_Value As String
  17. k = dom.SelectSingleNode("Results").ChildNodes.Length
  18. If k > 0 Then
  19. For j = 0 To k - 1
  20. For i = 0 To 7
  21. s_Value = dom.SelectSingleNode("Results").ChildNodes(j).Attributes(i).NodeValue
  22. Sheets("结果表").Cells(j + 1, i + 1).Value = s_Value
  23. Next
  24. Next
  25. Application.CutCopyMode = False
  26. Sheets("结果表").Select
  27. Sheets("结果表").Range("A1").Select
  28. End If
  29. Set dom = Nothing
  30. Set httprequest = Nothing
  31. End Sub

4， OleDb数据访问技术。

关键代码：

  1. //连接
  2. string strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + Path + ";" + "Extended Properties='Excel 8.0;HDR=no;IMEX=0'";
  3. OleDbConnection conn = new OleDbConnection(strConn);
  4. //打开连接
  5. conn.Open();
  6. System.Data.OleDb.OleDbCommand cmd = new OleDbCommand();
  7. cmd.Connection = conn;
  8. for (int i = 0; i < Lst.Count; i++)
  9. {
  10. cmd.CommandText = "INSERT INTO [sheet1$] (F1) VALUES('" + Lst[i] + "')";
  11. //执行Sql
  12. cmd.ExecuteNonQuery();
  13. }
  14. //关闭连接
  15. conn.Close();

四，总结

这四种方法各有优缺点，需要结合实际情况选择。够用就行。

五，完整代码下载地址

 http://download.csdn.net/source/3149222