在vb.net中用OLEDB从Excel导入到datagridview

Imports System.Data.OleDb

Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=<Excel文件路径>;Extended Properties='Excel 12.0 Xml;HDR=YES;'"

Using connection As New OleDbConnection(connectionString)
    connection.Open()
    ' 执行后续操作
End Using

Dim query As String = "SELECT * FROM [Sheet1$]"
Using command As New OleDbCommand(query, connection)
    Using adapter As New OleDbDataAdapter(command)
        Dim dataTable As New DataTable()
        adapter.Fill(dataTable)
        ' 将数据绑定到DataGridView
        DataGridView1.DataSource = dataTable
    End Using
End Using

Imports System.Data.OleDb

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=<Excel文件路径>;Extended Properties='Excel 12.0 Xml;HDR=YES;'"
        Using connection As New OleDbConnection(connectionString)
            connection.Open()
            Dim query As String = "SELECT * FROM [Sheet1$]"
            Using command As New OleDbCommand(query, connection)
                Using adapter As New OleDbDataAdapter(command)
                    Dim dataTable As New DataTable()
                    adapter.Fill(dataTable)
                    DataGridView1.DataSource = dataTable
                End Using
            End Using
        End Using
    End Sub
End Class