หาแนวร่วมทดสอบ dll อ่านไฟล์ excel แล้วแปลงออกมาเป็น DataSet - DataTable ครับ

Imports ExcelReaderPlugin.ExcelReader

Dim FilePath as string = "C:/201604.xlsx"
Using xls As New ExcelReaderPlugin.ExcelReader(FilePath)
    xls.GetDataSet(True) 'Return DataSet
    xls.GetDataTable(0) 'Return DataTable
    xls.GetSheetNames() 'Return List(of String)
    xls.GetSheetNames_DataTable() 'Return DataTable
    xls.GetSheetCount() 'Return Integer
End Using

GetSheetNames()
'ชื่อชีททั้งหมด รีเทิร์นออกมาเป็น List (Of String)

GetSheetNames_DataTable() 
'ชื่อชีททั้งหมด รีเทิร์นออกมาเป็น DataTable มีหนึ่ง Column ชื่อว่า Name

GetSheetCount() As Integer 
'จำนวนของชีททั้งหมด

GetDataSet(Optional SetColumnNameWithColumnHeader As Boolean = False, Optional ByVal AutoChangeColumnDataType As Boolean = False) As System.Data.DataSet
'ข้อมูลทั้งหมดในไฟล์ excel โดยแปลงข้อมูลให้อยู่ใน DataSet แล้ว
'SetColumnNameWithColumnHeader  = กำหนดชื่อคอลัมน์จากข้อมูลแถวแรก (อย่างเช่นพวกไฟล์ csv ที่หัวคอลัมจะอยู่ที่แถวแรก)
'AutoChangeColumnDataType  = เปลี่ยนประเภทข้อมูลของคอลัมน์ตามข้อมูลแถวแรกไม่รวมแถวที่ตั้งเป็นชื่อคอลัมน์

GetDataTable(ByVal SheetIndex As Integer, Optional ByVal SetColumnNameWithColumnHeader As Boolean = False, Optional ByVal AutoChangeColumnDataType As Boolean = False) As System.Data.DataTable
'ข้อมูลทั้งหมดตามอินเด็กซ์แถบชีทโดยแปลงข้อมูลให้อยู่ใน DataTable แล้ว
'SheetIndex = อันดับของชีทที่เลือก
'SetColumnNameWithColumnHeader  = กำหนดชื่อคอลัมน์จากข้อมูลแถวแรก (อย่างเช่นพวกไฟล์ csv ที่หัวคอลัมจะอยู่ที่แถวแรก)
'AutoChangeColumnDataType  = เปลี่ยนประเภทข้อมูลของคอลัมน์ตามข้อมูลแถวแรกไม่รวมแถวที่ตั้งเป็นชื่อคอลัมน์