Imports Microsoft.Office.Interop
Imports System.Data.OleDb
Public Class Form1
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim xlrange As Excel.Range
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim dt As New DataTable()
DataGridView1.DataSource = ""
xlapp = GetObject(, "Excel.Application")
xlbook = xlapp.ActiveWorkbook
xlsheet = xlbook.ActiveSheet
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + xlbook.Path.ToString & "\" & xlbook.Name + ";" + "Extended Properties=Excel 8.0;"
Using conn As New OleDbConnection(strConn)
conn.Open()
Dim strExcel As String = "select * from [" & xlsheet.Name & "$a2:z]"
Dim myCommand As New OleDbDataAdapter(strExcel, strConn)
myCommand.Fill(dt)
End Using
DataGridView1.DataSource = dt
End Sub
end class