摘要:ASP.NET - NPOI Excel 匯出 - 多工作表 Sheets
之前介紹過幾次在 ASP.NET 的環境下,做匯出 Excel 檔案。最近的一次介紹「ASP.NET 數個 Gridview 資料轉匯到同一個 Excel 檔中 - 不同分頁 - 使用 NPOI」讓你可以輕鬆的將 Gridview 中的內容分別轉匯到不同的 excel sheet 工作表中。經過一番使用,也稍微對那個 subfunction 做了一點修正,今天就來PO修正後的版本囉!
相關NPOI資源
- http://npoi.codeplex.com/
- http://www.cnblogs.com/tonyqus/archive/2009/04/12/1434209.html 使用教學,可以使用 Google Toolbar 將其轉為繁體。
- http://msdn.microsoft.com/zh-tw/ee818993.aspx 中文介紹
------- 程式碼如下
Sub npoi_excel(ByVal excel_array As Array, ByVal filename As String, ByVal size As Integer) 'NPOI_Excel 多工作表匯出
'----載入函示庫
'Imports NPOI.HSSF.UserModel
'Imports System.IO
'----叫用方式----
'Dim excel_array(,) As String = {{"測試囉", "gridview1", "工作表的標題欄", "備註1"}, {"測試囉222", "gridview2", "工作表的標題欄222", "備註2"}, {"測試囉33333", "gridview1", "工作表的標題欄33333", "備註3"}}
'npoi_excel(excel_array, "file_name.xls", 3) '資料陣列、檔名、Gridview 數量
'----------------------
Dim i, j, m As Integer '資料陣列、檔名、Gridview 數量
Dim gv(size) As GridView
Dim workbook As New HSSFWorkbook '使用 NPOI 函示庫 要載入 Imports NPOI.HSSF.UserModel
Dim ms As New MemoryStream
Dim mysheet(size + 1) As HSSFSheet '定義工作頁
Dim up_row As Integer
Dim up_column As Integer '記錄 Gridview 的 Row 與 Column 上限
Dim region As NPOI.HSSF.Util.Region
For i = 0 To size - 1
mysheet(i) = workbook.CreateSheet(excel_array(i, 0))
mysheet(i).DisplayGridlines = True '宣告要畫出 Excel 格線,預設值就是 True
mysheet(i).IsPrintGridlines = True '定義 Excel 印出時要印出框線
gv(i) = New GridView
gv(i) = CType(FindControl(excel_array(i, 1)), GridView) '取得對應的 Gridview 物件
up_row = gv(i).Rows.Count - 1 '抓取Gridview 的欄位數 column、筆數 row
up_column = gv(i).Columns.Count - 1 '從0開始,所以要減1
region = New NPOI.HSSF.Util.Region(0, 0, 0, up_column) '合併儲存格,依欄位數
mysheet(i).AddMergedRegion(region)
mysheet(i).CreateRow(0).CreateCell(0).SetCellValue(excel_array(i, 2)) '印 Caption
'gv(i).Caption 其實也可以直接抓取 Gridview 中所定義的 Caption
For j = 0 To up_column '印出對應的 Gridview 欄位名稱
mysheet(i).CreateRow(1).CreateCell(j).SetCellValue(gv(i).HeaderRow.Cells(j).Text)
Next
For m = 0 To up_row '---印出資料
For j = 0 To up_column
mysheet(i).CreateRow(m + 2).CreateCell(j).SetCellValue(gv(i).Rows(m).Cells(j).Text)
Next
Next
'結尾提示文字,可以用以表現資料產出時間
mysheet(i).CreateRow(up_row + 4).CreateCell(0).SetCellValue("資料產出時間:" & Now.ToString) '時間記錄
mysheet(i).CreateRow(up_row + 5).CreateCell(0).SetCellValue(excel_array(i, 3)) '備註
Next 'For i = 0 To k
'---- 匯入 asp TABEL 的方式 ---
'mysheet(size) = workbook.CreateSheet("La La test")
'Dim tb1x As Table = CType(FindControl(Table1.ID), Table) '用 findcontrol 抓取 asp table 的元件內容
'For m = 0 To tb1x.Rows.Count - 1
' For j = 0 To tb1x.Rows(m).Cells.Count - 1
' mysheet(size).CreateRow(m).CreateCell(j).SetCellValue(tb1x.Rows(m).Cells(j).Text)
' Next
'Next
'====匯入ASP Table ====
'-----手編 Table ---
'Dim pp As Integer = size
'Dim rsp As Integer =0 '用來做上下資料列印位置移動
'Dim csp As Integer =0 '用來做左右資料列印位置移動
'mysheet(pp) = workbook.CreateSheet("統計分析")
'mysheet(pp).DisplayGridlines = True
'mysheet(pp).IsPrintGridlines = True
'region = New NPOI.HSSF.Util.Region(0, 0, 1, 1) '合併儲存格
'mysheet(pp).AddMergedRegion(region)
'mysheet(pp).CreateRow(rsp+0).CreateCell(csp + 0).SetCellValue("成員歸類")
'region = New NPOI.HSSF.Util.Region(0, 2, 0, 3) '合併儲存格
'mysheet(pp).AddMergedRegion(region)
'mysheet(pp).CreateRow(rsp+0).CreateCell(csp + 2).SetCellValue("人數")
'mysheet(pp).CreateRow(rsp+1).CreateCell(csp + 2).SetCellValue("主管")
'mysheet(pp).CreateRow(rsp+1).CreateCell(csp + 3).SetCellValue("工程師")
'region = New NPOI.HSSF.Util.Region(2, 0, 7, 0) '合併儲存格
'mysheet(pp).AddMergedRegion(region)
'mysheet(pp).CreateRow(rsp+2).CreateCell(csp + 0).SetCellValue("系統管理者")
'mysheet(pp).CreateRow(rsp+2).CreateCell(csp + 1).SetCellValue("程式設計師")
'mysheet(i).CreateRow(rsp + up_row + 4).CreateCell(csp + 0).SetCellValue("資料產出時間:" & Now.ToString) '時間記錄
'mysheet(i).CreateRow(rsp + up_row + 5).CreateCell(csp + 0).SetCellValue(excel_array(i, 3)) '備註
'=====手編====
workbook.Write(ms)
Response.AddHeader("Content-Disposition", String.Format("attachment; filename=" & filename))
Response.BinaryWrite(ms.ToArray)
ms.Close()
ms.Dispose()
End Sub
----------
手編表格會出結果
~ End