MIS2000 Lab.的 ASP.NET 4.0 專題實務/教學與分享 (Official Site)

之前有推薦過這篇好文章

在 Server 端存取 Excel 檔案的利器：NPOI Library
http://msdn.microsoft.com/zh-tw/ee818993.aspx

 因為上文採用C＃來寫範例。

前兩天在論壇上，看見有人要VB語法的範例
小弟改寫成 VB語法，也分享給大家。

謝謝網路上的朋友  熱心分享

 .....................................................................................................................................

我是比對原文的範例順序來改寫，一共改了四個。
如果您有需要就拿去參考看看。

請務必依照上面文章的指引

先把 NPOI Library 1.21 for .NET 2.0安裝起來（在 Visual Studio之中  加入參考）

範例一： 下列的 ASP.NET 程式碼可以生成一個空白的 Excel 檔案，並且添加三個指定名稱的試算表

01 Imports ...System.IO
02 Imports NPOI.HSSF.UserModel
03 Imports NPOI.HPSF
04 Imports NPOI.POIFS.FileSystem
05
06
07     Protected Sub Button1_Click() Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
08         '== 本範例的資料來源：http://msdn.microsoft.com/zh-tw/ee818993.aspx  
09
10         Dim workbook As HSSFWorkbook = New HSSFWorkbook()
11         Dim ms As MemoryStream = New MemoryStream()  '==需要 System.IO命名空間
12
13         '== 新增試算表。
14         '== 生成一個空白的 Excel 檔案，並且添加三個指定名稱的試算表 Sheet
15         workbook.CreateSheet("試算表 Sheet A")
16         workbook.CreateSheet("試算表 Sheet B")
17         workbook.CreateSheet("試算表 Sheet C")
18
19         workbook.Write(ms)
20         '== Excel檔名，請寫在最後面 filename的地方
21         Response.AddHeader("Content-Disposition", String.Format("attachment; filename=你的檔名.xls"))
22         Response.BinaryWrite(ms.ToArray())
23
24         '== 釋放資源
25         workbook = Nothing   '== C#為 null
26         ms.Close()
27         ms.Dispose()
28     End Sub

範例二： 添加一個指定名稱的試算表，在裡面添加資料

01 Imports ...System.IO
02 Imports NPOI.HSSF.UserModel
03 Imports NPOI.HPSF
04 Imports NPOI.POIFS.FileSystem
05
06
07     Protected Sub Button1_Click() Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
08         '== 本範例的資料來源：http://msdn.microsoft.com/zh-tw/ee818993.aspx  
09
10         Dim workbook As HSSFWorkbook = New HSSFWorkbook()
11         Dim ms As MemoryStream = New MemoryStream()  '==需要 System.IO命名空間
12
13         '== 新增試算表 Sheet名稱。
14         Dim u_sheet As HSSFSheet = workbook.CreateSheet("My Sheet")
15
16         '== 插入資料值。
17         u_sheet.CreateRow(0).CreateCell(0).SetCellValue("0000")
18         u_sheet.CreateRow(1).CreateCell(0).SetCellValue("1111")
19         u_sheet.CreateRow(2).CreateCell(0).SetCellValue("2222")
20         u_sheet.CreateRow(3).CreateCell(0).SetCellValue("3333")
21         u_sheet.CreateRow(4).CreateCell(0).SetCellValue("4444")
22         u_sheet.CreateRow(5).CreateCell(0).SetCellValue("5555")
23
24         u_sheet.CreateRow(6).CreateCell(1).SetCellValue("6666")  '== CreateCell() 可設定為同一列(Row)的 [第幾個格子]
25
26
27         workbook.Write(ms)
28
29         '== Excel檔名，請寫在最後面 filename的地方
30         Response.AddHeader("Content-Disposition", String.Format("attachment; filename=你的檔名.xls"))
31         Response.BinaryWrite(ms.ToArray())
32
33         '== 釋放資源
34         workbook = Nothing   '== C#為 null
35         ms.Close()
36         ms.Dispose()
37     End Sub

範例三： 設定儲存格的背景色

01 Imports ...System.IO
02 Imports NPOI.HSSF.UserModel
03 Imports NPOI.HPSF
04 Imports NPOI.POIFS.FileSystem
05
06
07     Protected Sub Button1_Click() Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
08         '== 本範例的資料來源：http://msdn.microsoft.com/zh-tw/ee818993.aspx  
09
10         Dim workbook As HSSFWorkbook = New HSSFWorkbook()
11         Dim ms As MemoryStream = New MemoryStream()  '==需要 System.IO命名空間
12
13         '== 新增試算表 Sheet名稱。
14         Dim u_sheet As HSSFSheet = workbook.CreateSheet("My Sheet")
15
16         '== 建立儲存格樣式（底色）。
17         Dim style1 As HSSFCellStyle = workbook.CreateCellStyle()
18         style1.FillForegroundColor = NPOI.HSSF.Util.HSSFColor.BLUE.index2  '==藍色底的儲存格
19         style1.FillPattern = HSSFCellStyle.SOLID_FOREGROUND
20
21         Dim style2 As HSSFCellStyle = workbook.CreateCellStyle()
22         style2.FillForegroundColor = NPOI.HSSF.Util.HSSFColor.YELLOW.index2  '==黃色底的儲存格
23         style2.FillPattern = HSSFCellStyle.SOLID_FOREGROUND
24
25
26         '== 設定儲存格樣式與資料。
27         Dim cell As HSSFCell = u_sheet.CreateRow(0).CreateCell(0)
28         cell.CellStyle = style1
29         cell.SetCellValue("0000")  '== 插入資料值。
30
31         cell = u_sheet.CreateRow(1).CreateCell(0)
32         cell.CellStyle = style2
33         cell.SetCellValue("1111")  '== 插入資料值。
34
35         cell = u_sheet.CreateRow(2).CreateCell(0)
36         cell.CellStyle = style1
37         cell.SetCellValue("2222")  '== 插入資料值。
38
39         cell = u_sheet.CreateRow(3).CreateCell(0)
40         cell.CellStyle = style2
41         cell.SetCellValue("3333")  '== 插入資料值。
42
43         cell = u_sheet.CreateRow(4).CreateCell(0)
44         cell.CellStyle = style1
45         cell.SetCellValue("4444")  '== 插入資料值。
46
47
48         workbook.Write(ms)
49         '== Excel檔名，請寫在最後面 filename的地方
50         Response.AddHeader("Content-Disposition", String.Format("attachment; filename=你的檔名.xls"))
51         Response.BinaryWrite(ms.ToArray())
52
53         '== 釋放資源
54         workbook = Nothing   '== C#為 null
55         ms.Close()
56         ms.Dispose()
57     End Sub

 範例四： 把手邊的 Excel檔案上傳（透過 FileUpload控制項），轉換成 DataTable
                          並轉換成 GridView呈現在 Web畫面上

這個範例的難度略高了一些，
我加上自己的註解（但，不保證正確），希望對您有幫助

01 Imports ...System.IO
02 Imports System.Data    '-- DataTable會用到
03
04 Imports NPOI
05 Imports NPOI.HPSF
06 Imports NPOI.HSSF
07 Imports NPOI.HSSF.UserModel
08 Imports NPOI.POIFS
09 Imports NPOI.POIFS.FileSystem
10 Imports NPOI.Util
11
12
13     Protected Sub Button1_Click() Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
14         '== 本範例的資料來源：http://msdn.microsoft.com/zh-tw/ee818993.aspx  
15         '==先把上傳的 Excel資料檔案，讀取到 DataTable裡面。
16
17         '-- 註解：先設定好檔案上傳的路徑，這是Web Server電腦上的目錄。
18         Dim savePath As String = "C:\temp\uploads\"
19
20         If (FileUpload1.HasFile) Then
21             Dim fileName As String = FileUpload1.FileName
22
23             savePath = savePath & fileName
24             FileUpload1.SaveAs(savePath)
25
26             Label1.Text = "上傳成功，檔名---- " & fileName
27             '--------------------------------------------------
28             '---- 上傳的部分，成功運作！
29             '--------------------------------------------------
30
31
32
33             Dim workbook As HSSFWorkbook = New HSSFWorkbook(FileUpload1.FileContent)  '==只能讀取 System.IO.Stream
34
35             '-- FileContent 屬性會取得指向要上載之檔案的 Stream 物件。這個屬性可以用於存取檔案的內容 (做為位元組)。
36             '   例如，您可以使用 FileContent 屬性傳回的 Stream 物件，將檔案的內容做為位元組進行讀取並將其以位元組陣列儲存。
37             '-- FileContent 屬性，型別：System.IO.Stream
38             '-- http://msdn.microsoft.com/zh-tw/library/system.web.ui.webcontrols.fileupload.filecontent.aspx
39
40             Dim u_sheet As HSSFSheet = workbook.GetSheetAt(0)  '-- 0表示：第一個 worksheet工作表
41
42             Dim D_table As DataTable = New DataTable()
43
44             Dim headerRow As HSSFRow = u_sheet.GetRow(0)  '-- Excel 表頭列
45
46             For k As Integer = headerRow.FirstCellNum To (headerRow.LastCellNum - 1)  '-- 表頭列，共有幾個 "欄位"?（取得最後一欄的數字）
47                 '-- 把上傳的 Excel「表頭列」，每一欄位都寫入 DataTable裡面
48                 If Not headerRow.GetCell(k) Is Nothing Then
49                     Dim D_column As DataColumn = New DataColumn(headerRow.GetCell(k).StringCellValue)
50                     D_table.Columns.Add(D_column)
51                 End If
52             Next
53
54
55             '-- For迴圈的「啟始值」要加一，表示不包含 Excel表頭列
56             For i As Integer = (u_sheet.FirstRowNum + 1) To u_sheet.LastRowNum   '-- 每一列做迴圈
57                 Dim row As HSSFRow = u_sheet.GetRow(i)  '--不包含 Excel表頭列的 "其他資料列"
58                 Dim D_dataRow As DataRow = D_table.NewRow()
59
60                 For j As Integer = row.FirstCellNum To (row.LastCellNum - 1)   '-- 每一個欄位做迴圈
61                     If Not row.GetCell(j) Is Nothing Then
62                         D_dataRow(j) = row.GetCell(j).ToString()  '--每一個欄位，都加入同一列 DataRow
63                     End If
64                 Next
65                 D_table.Rows.Add(D_dataRow)
66             Next
67
68             '-- 釋放 NPOI的資源
69             workbook = Nothing
70             u_sheet = Nothing
71
72             Dim D_View As DataView = New DataView(D_table)
73
74             GridView1.DataSource = D_View
75             GridView1.DataBind()
76
77
78
79         Else
80             Label1.Text = "????  ...... 請先挑選檔案之後，再來上傳"
81         End If
82
83     End Sub

2010/5/24補充：   如果您用來上傳的 Excel檔案，在欄位（Cell）或是資料列（Row）有空白的話。

      如下圖，可能會導致輸出的畫面不正確。  因為上面的範例，是一格一格、一列一列去讀取。

      如果遇見空白，可能會認為是結束。

 2010/8/26補充：謝謝網友 瑪姬 提供下列建議

謝謝每一位分享的朋友，

      「分享」讓智慧愈加地發光

............................................................................................................................................................................

 (1).  如果您不會使用 FileUpload控制項，可以參考這幾篇文章 --

      http://www.dotblogs.com.tw/mis2000lab/archive/2010/01/13/npoi_excel_asp_net.aspx

 (2).  以前透過傳統的方法，要輸出或是讀取 Excel

       比對起 NPOI，相形之下，傳統方法真是麻煩，可以參考這幾篇文章 --

      http://www.dotblogs.com.tw/mis2000lab/Tags/Excel/default.aspx

2011/12/1  補充 :  範例由此下載（請注意 版本差異）：

[NPOI 1.2.4版][下載]ASP.NET 輸出 Excel，範例下載。

網頁上的補充範例（售後服務），不一定能立即提供 VB / C#語法（看時間夠不夠寫，請不要跟我們要）。
但書本上面的範例，一定有 VB / C#雙語法給您學習。          請看我們的「售後服務」範圍（嚴格認定）。

防範SQL Injection / XSS攻擊，請看：ASP.NET安全寫作    資料來源 -- TWISC@NTUST網路應用安全知識庫

............................. 寫信給我，mis2000lab (at) yahoo.com.台灣......

	ASP.NET 4.0 專題實務（松崗出版）     榮獲 PChome  電腦類  2011年度 暢銷書
上 / 下兩集合購。優惠價1,180元（免郵資） 上/下兩集將近2,000頁，堪稱國內 [最詳盡]的ASP.NET範例教學。
	上集( .NET 4.0版）全新改寫。範例增加66%，內容增加35%。上市以來，熱銷七刷！ 下集  為   VB、C#  「雙語法」版本，物超所值！ 下集（第二版，黑皮書）上市一個月熱銷再刷，2010一年內（第一版）熱銷四刷！第二版半年熱銷四刷！ 下集內容增加66%。

南無普光佛 　南無普明佛 　南無普淨佛 　南無多摩羅跋栴檀香佛 　南無栴檀光佛 　南無摩尼幢佛 　南無歡喜藏摩尼寶積佛 　南無一切世間樂見上大精進佛　  南無摩尼幢燈光佛
南無慧炬照佛 　南無海德光明佛　  南無金剛牢強普散金光佛 　南無大強精進勇猛佛 　南無大悲光佛  　南無慈力王佛 　南無慈藏佛 　南無栴檀窟莊嚴勝佛 　南無賢善首佛
南無善意佛 　南無廣莊嚴王佛 　南無金華光佛 　南無寶蓋照空自在力王佛 　南無虛空寶華光佛  南無琉璃莊嚴王佛 　南無普現色身光佛 　南無不動智光佛  南無降伏眾魔王佛 　
南無才光明佛  南無智慧勝佛 　南無彌勒仙光佛 　南無善寂月音妙尊智王佛 　南無世淨光佛 　南無龍種上尊王佛 　南無日月光佛  南無日月珠光佛 　南無慧幢勝王佛 　
南無師子吼自在力王佛 　南無妙音勝佛 　南無常光幢佛 　南無觀世燈佛  南無慧威燈王佛 　南無法勝王佛 　南無須彌光佛  南無須曼那華光佛  南無優曇鉢羅華殊勝王佛 　
南無大慧力王佛 　南無阿閦毗歡喜光佛 　南無無量音聲王佛 　南無才光佛  　南無金海光佛 　南無山海慧自在通王佛 　南無大通光佛 　南無一切法常滿王佛 　南無釋迦牟尼佛
南無金剛不壞佛 　南無寶光佛 　南無龍尊王佛 　南無精進軍佛 　南無精進喜佛 　南無寶火佛 　南無寶月光佛 　南無現無愚佛 　南無寶月佛 　南無無垢佛 　南無離垢佛  　
南無勇施佛 　南無清淨佛 　南無清淨施佛 　南無娑留那佛 　南無水天佛 　南無堅德佛 　南無栴檀功德佛 　南無無量掬光佛 　南無光德佛 　南無無憂德佛
南無那羅延佛 　南無功德華佛 　南無蓮華光遊戲神通佛 　南無財功德佛 　南無德念佛 　南無善名稱功德佛 　南無紅燄帝幢王佛 　南無善遊步功德佛  南無鬪戰勝佛  
南無善遊步佛 　南無周匝莊嚴功德佛 　南無寶華遊步佛 　南無寶蓮華善住娑羅樹王佛  　南無法界藏身阿彌陀佛

............................. 寫信給我，mis2000lab (at) yahoo.com.台灣......

無垢清淨光  慧日破諸闇      能伏災風火  普明照世間