ASP.NET - NPOI Excel 匯出 - 多工作表 Sheets

摘要:ASP.NET - NPOI Excel 匯出 - 多工作表 Sheets

 

之前介紹過幾次在 ASP.NET 的環境下,做匯出 Excel 檔案。最近的一次介紹「ASP.NET 數個 Gridview 資料轉匯到同一個 Excel 檔中 - 不同分頁 - 使用 NPOI」讓你可以輕鬆的將 Gridview 中的內容分別轉匯到不同的 excel sheet 工作表中。經過一番使用,也稍微對那個 subfunction 做了一點修正,今天就來PO修正後的版本囉!

相關NPOI資源

------- 程式碼如下

    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