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

你可以使用以下VB.NET代码来实现：

Imports Microsoft.Office.Interop.Excel

Public Class Form1

    Private Sub BrowseButton_Click(sender As Object, e As EventArgs) Handles BrowseButton.Click
        '打开文件对话框并选择Excel文件
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            '打开Excel文件
            Dim app As New Excel.Application
            Dim workbook As Excel.Workbook = app.Workbooks.Open(OpenFileDialog1.FileName)
            Dim worksheet As Excel.Worksheet = workbook.Sheets(1)

            '获取表头
            Dim headerRange As Excel.Range = worksheet.Rows(1)
            Dim headerArray(headerRange.Columns.Count - 1) As String
            For i As Integer = 1 To headerRange.Columns.Count
                headerArray(i - 1) = headerRange.Cells(1, i).Value
            Next

            '获取数据
            Dim dataRange As Excel.Range = worksheet.UsedRange
            Dim dataArray(dataRange.Rows.Count - 1, dataRange.Columns.Count - 1) As Object
            For i As Integer = 2 To dataRange.Rows.Count
                For j As Integer = 1 To dataRange.Columns.Count
                    dataArray(i - 2, j - 1) = dataRange.Cells(i, j).Value
                Next
            Next

            '将数据显示在DataGridView中
            DataGridView1.DataSource = New System.Data.DataTable
            For Each header In headerArray
                DataGridView1.Columns.Add(header, header)
            Next
            For i As Integer = 0 To dataArray.GetUpperBound(0)
                DataGridView1.Rows.Add(dataArray(i))
            Next

            '关闭Excel文件
            workbook.Close()
            app.Quit()
        End If
    End Sub

End Class

这段代码会打开一个文件对话框让用户选择Excel文件，然后读取文件中的表头和数据，并将它们显示在DataGridView中。请注意，这段代码依赖于Microsoft Excel组件，所以你需要在项目中添加对Microsoft Excel对象库的引用。