Mengimport Excel ke DataGridview di Vb.Net

Hello guys, Pada kesempatan saya akan coba menuliskan langkah membuat sebuah aplikasi yang dapat meng –import data dari excel kedalam datagridview. Buatlah projek baru beri nama dengan “importexcel_togrid” kemudian designlah tampilan seperti gambar dibawah.

Kemudian buatlah data seperti gambar dibawah ini dengan Microsoft Office Excel dan simpan dalam directori yang anda inginkan

Kemudian double klik pada button dan ketikan listing berikut.

Imports System.Data.OleDb
Public Class Form1
Dim koneksi As OleDbConnection
Dim da As OleDbDataAdapter
Dim dt As New DataSet
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
OpenFileDialog1.Filter = “(*.xls)|*.xls|(*.xlsx)|*.xlsx|All files (*.*)|*.*”
OpenFileDialog1.ShowDialog()
koneksi = New OleDbConnection(“provider=Microsoft.Jet.OLEDB.4.0;data source='” & OpenFileDialog1.FileName & “‘;Extended Properties=Excel 8.0;”)
da = New OleDbDataAdapter(“select * from [Sheet1$]”, koneksi)
koneksi.Open()
dt.Clear()
da.Fill(dt)
DataGridView1.DataSource = dt.Tables(0)
koneksi.Close()
Catch ex As Exception
MessageBox.Show(ex.ToString())
End Try
End Sub
End Class

Nah sekalang running projek kamu guys,