VB.NET 直接读取打开的Excel数据到DataGridView

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