在VB中将Excel显示为Gridview

Imports Microsoft.Office.Interop.Excel

Public Class Form1
    Private Sub btnLoadExcel_Click(sender As Object, e As EventArgs) Handles btnLoadExcel.Click
        ' 创建Excel应用程序对象
        Dim excelApp As New Application()

        ' 打开Excel文件
        Dim workbook As Workbook = excelApp.Workbooks.Open("C:\path\to\excel.xlsx")

        ' 获取工作表对象
        Dim worksheet As Worksheet = workbook.Worksheets(1)

        ' 读取Excel数据
        Dim data As New DataTable()
        For row As Integer = 1 To worksheet.UsedRange.Rows.Count
            If row = 1 Then
                ' 添加列标题
                For col As Integer = 1 To worksheet.UsedRange.Columns.Count
                    data.Columns.Add(worksheet.Cells(row, col).Value.ToString())
                Next
            Else
                ' 添加数据行
                Dim newRow As DataRow = data.NewRow()
                For col As Integer = 1 To worksheet.UsedRange.Columns.Count
                    newRow(col - 1) = worksheet.Cells(row, col).Value
                Next
                data.Rows.Add(newRow)
            End If
        Next

        ' 创建GridView控件
        Dim gridView As New DataGridView()
        gridView.DataSource = data

        ' 显示GridView
        gridView.DataBind()

        ' 将GridView添加到窗体中
        Me.Controls.Add(gridView)

        ' 关闭Excel应用程序
        workbook.Close()
        excelApp.Quit()
    End Sub
End Class