NPOI 上傳並[讀取]檔案,之後[添加(加入)] 新資料,然後產生新的 Excel檔。

摘要:NPOI上傳並[讀取]檔案,之後[添加(加入)]新資料





 

 

 

 

 

把兩個範例,先學通了!

就能千變萬化

 

兩個範例「組合」起來,又是一個新功能。

 

我們會先用以前做過的範例

在 Server 端存取 Excel 檔案的利器:NPOI Library v1.21(改寫成VB範例)

 

第一,上傳並且讀取 Excel檔案

            如上文的範例

 

第二,產生資料、的工作表,加入 Excel檔裡面

          如上文的範例

 

     

 

====================================================================================

範例四: 把手邊的 Excel檔案上傳(透過 FileUpload控制項)讀取,轉換成 DataTable
                          並轉換成 GridView呈現在 Web畫面上

 

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

本範例的 Excel上傳,僅限於 Excel 2003格式

 

以下範例可用於 NPOI 1.2.1版。    1.2.4與 1.2.5版都可以。

不同版本,上方的 NameSpace不同,請自己增減。

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(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的資源 -------------------------------------------------(start)
69             workbook = Nothing
70             u_sheet = Nothing
71
            '--------------------------------------------------------------------(end)
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

 

本範例的 Excel上傳,僅限於 Excel 2003格式

====================================================================================

 

上面提到的 NPOI 1.2.4版範例,

可由此下載 -- http://www.dotblogs.com.tw/mis2000lab/archive/2011/12/01/npoi_v124_sample_download_20111201.aspx

 

(1) .  請把上述 68~70列的程式碼,註解掉。

(2).  把下面程式,加入 76~78列的空白裡面。完成了

 

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()

 

 

 

 

學通了,您的程式碼都便成「積木」

隨便組合都能千變萬化

 

 

學通,程式碼送給您,您都運作不起來

 

 

有沒有學通,不是靠聰明才智

而是靠自己學習的態度

 

 

 

 

 

 

我將思想傳授他人, 他人之所得,亦無損於我之所有;

猶如一人以我的燭火點燭,光亮與他同在,我卻不因此身處黑暗。----Thomas Jefferson

線上課程,遠距教學 (Web Form 49hr)  https://dotblogs.com.tw/mis2000lab/2016/02/01/aspnet_online_learning_distance_education_VS2015

線上課程,遠距教學 (ASP.NET MVC 75hr)  https://dotblogs.com.tw/mis2000lab/2018/08/14/ASPnet_MVC_Online_Learning_MIS2000Lab

ASP.NET MVC線上課程 第一天 免費看 (5.5小時) 

寫信給我,不要私訊 --  mis2000lab (at) yahoo.com.台灣  或  school (at) mis2000lab.net


ASP.NET遠距教學、線上課程(Web Form + MVC)。 第一天課程, "完整" 試聽。 

................   facebook社團   https://www.facebook.com/mis2000lab   ......................

................  YouTube (ASP.NET) 線上教學影片  https://www.youtube.com/channel/UC6IPPf6tvsNG8zX3u1LddvA/

 

Blog文章 "附的範例" 無法下載,請看 這裡 ...... https://dotblogs.com.tw/mis2000lab/2016/03/14/2008_2015_mis2000lab_sample_download

請看我們的「售後服務」範圍(嚴格認定)

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

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

[遠距教學、教學影片] ASP.NET (Web Form) 課程 上線了!MIS2000Lab.主講

事先錄製好的影片,並非上課時側錄!   觀看影片時,有如我「一對一」跟您面對面講課

 

ASP.NET MVC 5 線上教學

累積時數約 75小時...... 第一天(5.5小時)完整內容,"免費"讓您評估