2010-07-01

[Asp.Net] - 匯出成EXCEL(多頁籤)-使用NPOI

參考來源:

此方式使用NPOI函式庫,先至官方網站下載。

函式庫:NPOI 1.2.1 release

使用方式參考第一篇文章。


程式:
'建立新的 Excel 檔案
Dim excelBook As HSSFWorkbook = New HSSFWorkbook

'建立新的 Excel 工作表
Dim sheet(建立的數量) As HSSFSheet
Dim ms As New MemoryStream()

'建立儲存格樣式
Dim style As HSSFCellStyle = excelBook.CreateCellStyle()
 
'實 際產生工作表並帶入資料
For i As Integer = 0 To num
    sheet(i) = m_excelBook.CreateSheet(Sheet Name)
    '產生Row資料
    '有兩種方式
    '1
    sheet(i).CreateRow(Row Index).CreateCell(Cell Index).SetCellValue(欄位內容)
    '2
    Dim cell As HSSFCell
    cell = sheet(i).CreateRow(Row Index).CreateCell(Cell Index)
    cell.CellStyle = style'欄位樣式
    cell.SetCellValue(欄位內容)
Next

'串流寫入檔案然後下載
excelBook.Write(ms)
Response.AddHeader("Content-Disposition", "attachment; filename=檔名.xls")
Response.BinaryWrite(ms.ToArray())
excelBook = Nothing
ms.Close()
ms.Dispose()

沒有留言:

張貼留言