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

在 VB.NET 中，你可以使用 Microsoft.Office.Interop.Excel 库来操作 Excel 文件，同时使用 DataGridView 控件来显示数据。下面是一个示例代码，演示了如何通过浏览计算机选择一个有表头的 Excel 文件，并将其数据导入到 DataGridView 中：

Imports Microsoft.Office.Interop.Excel

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 创建 Excel 应用程序对象
        Dim excelApp As New Application()
        ' 打开文件对话框，选择 Excel 文件
        Dim openFileDialog As New OpenFileDialog()
        openFileDialog.Filter = "Excel 文件|*.xlsx;*.xls"
        If openFileDialog.ShowDialog() = DialogResult.OK Then
            ' 打开 Excel 文件
            Dim workbook As Workbook = excelApp.Workbooks.Open(openFileDialog.FileName)
            ' 获取第一个工作表
            Dim worksheet As Worksheet = workbook.Sheets(1)
            ' 获取数据范围
            Dim range As Range = worksheet.UsedRange
            ' 获取行数和列数
            Dim rowCount As Integer = range.Rows.Count
            Dim columnCount As Integer = range.Columns.Count

            ' 清空 DataGridView
            DataGridView1.Rows.Clear()
            DataGridView1.Columns.Clear()

            ' 添加列头
            For i As Integer = 1 To columnCount
                DataGridView1.Columns.Add("Column" & i.ToString(), "Column" & i.ToString())
            Next

            ' 添加行数据
            For i As Integer = 1 To rowCount
                Dim row As New List(Of String)()
                For j As Integer = 1 To columnCount
                    ' 读取单元格数据
                    Dim value As String = CType(range.Cells(i, j), Range).Value.ToString()
                    row.Add(value)
                Next
                ' 添加行到 DataGridView
                DataGridView1.Rows.Add(row.ToArray())
            Next

            ' 关闭 Excel 文件
            workbook.Close()
            ' 退出 Excel 应用程序
            excelApp.Quit()
        End If
    End Sub
End Class

上述代码中，首先创建了一个 Excel 应用程序对象 `excelApp`，然后打开一个文件对话框，选择 Excel 文件。接下来，通过 `Workbooks.Open()` 方法打开选中的 Excel 文件，获取第一个工作表 `worksheet`，以及数据范围 `range`。然后，清空 DataGridView，并根据列数添加列头。接着，遍历数据范围，读取每个单元格的值，将其添加到 DataGridView 中的对应位置。最后，关闭 Excel 文件和应用程序。

希望这个示例能帮助到你！如果有任何问题，请随时提问。