通过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.Curre