VB.NET如何通过浏览计算机把有表头的EXCEL数据全部导入DATAGIRDVIEW中

您可以使用以下代码实现将具有表头的Excel数据导入到DataGridView中。

首先，您需要添加以下命名空间：

Imports System.Data.OleDb
Imports System.IO

然后，您可以使用以下代码：

Dim openFileDialog1 As New OpenFileDialog()

openFileDialog1.Filter = "Excel文件 (*.xlsx)|*.xlsx|Excel文件 (*.xls)|*.xls"
openFileDialog1.FilterIndex = 2
openFileDialog1.RestoreDirectory = True

If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
    Dim filePath As String = openFileDialog1.FileName

    Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & filePath & ";Extended Properties=""Excel 12.0 Xml;HDR=YES;"""

    Dim adapter As New OleDbDataAdapter("SELECT * FROM [Sheet1$]", connectionString)

    Dim dt As New DataTable()
    adapter.Fill(dt)

    DataGridView1.DataSource = dt
End If

这段代码将打开一个文件对话框，允许用户选择要导入的Excel文件。然后，它使用OleDbDataAdapter从选定的工作表中检索数据，并将其填充到一个DataTable中。最后，将DataTable分配给DataGridView的DataSource属性，以在DataGridView中显示数据。

请注意，此示例假定您的Excel文件中的表格位于名为“Sheet1”的工作表中。如果您的工作表名称不同，请相应地更改查询字符串中的工作表名称。