通过vb.net 和NPOI实现对excel的读操作，很久很久前用过vb,这次朋友的代码是vb.net写的需要一个excel的操作，
就顾着着实现功能了，大家凑合着看吧
-
Option Explicit On -
-
Imports NPOI.SS.UserModel -
Imports System.IO -
-
Public Class ExcelHelper -
-
Public Shared Function ImportExcel(ByVal strSource As String) As DataTable -
Dim hssfWorkbook As IWorkbook -
Dim sheet As ISheet -
Dim rows As System.Collections.IEnumerator -
Dim dt As DataTable -
Dim icount As Int32 -
Dim row As IRow -
Dim dr As DataRow -
Dim cell As ICell -
-
hssfWorkbook = WorkbookFactory.Create(FileToStream(strSource)) -
-
-
sheet = hssfWorkbook.GetSheetAt(0) -
rows = sheet.GetRowEnumerator() -
-
icount = 0 -
dt = New DataTable() -
-
While rows.MoveNext() -
-
icount = icount + 1 -
row = rows.Current -
dr = dt.NewRow -
For i As Int32 = 0 To row.LastCellNum -
cell = row.GetCell(i) -
If cell Is Nothing Then -
'dr(i) = DBNull.Value -
Else -
If icount = 1 Then -
dt.Columns.Add(cell.ToString) -
End If -
-
dr(i) = cell.ToString -
End If -
-
Next -
-
dt.Rows.Add(dr) -
-
End While -
-
dt.Rows.RemoveAt(0) -
-
Return dt -
-
End Function -
-
Public Shared Function FileToStream(ByVal fileName As String) As Stream -
-
'打开文件 -
-
Dim fileStream As FileStream -
-
fileStream = New FileStream(fileName, FileMode.Open, FileAccess.Read, FileShare.Read) -
-
'读取文件的 byte() -
-
Dim bytes() As Byte = New Byte(fileStream.Length) {} -
-
fileStream.Read(bytes, 0, bytes.Length) -
-
fileStream.Close() -
-
'把 byte()转换成 Stream -
-
Dim stream As Stream = New MemoryStream(bytes) -
-
Return stream -
-
End Function -
-
End Class
