Cara baca file excel pada VB.Net

Preparation:

Library:

• ExcelDataReader
  http://www.nuget.org/packages/ExcelDataReader/
  Depedency SharpZipLib
  http://www.nuget.org/packages/SharpZipLib/

How To

• Create Winform Project
• Add

 

 

Private dsExcel As DataSet
   Sub BtnOpenExcelClick(sender As Object, e As EventArgs)
       Dim strFileExcel As String = ""
       If OpenFileDialog1.ShowDialog <> DialogResult.Cancel Then
           strFileExcel = OpenFileDialog1.FileName
           'read excel File
           Dim stream As FileStream = File.Open(strFileExcel, FileMode.Open, FileAccess.Read)
           Dim excelReader As IExcelDataReader = ExcelReaderFactory.CreateOpenXmlReader(stream)
           'Dim result As DataSet = excelReader.AsDataSet()
           excelReader.IsFirstRowAsColumnNames = True
           Dim result As DataSet = excelReader.AsDataSet()
           Application.DoEvents
           dsExcel = New DataSet
           dsExcel = result
           dataGridView1.DataSource = result.Tables(0)
                      
           While excelReader.Read()
               'excelReader.GetInt32(0);
               listBox1.Items.Add(excelReader.GetString(3))
           End While
           excelReader.Close()
          End If
End Sub