參考來源:
此方式使用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()
沒有留言:
張貼留言