如何在vb.net中将一列的MS excel数据放入数组中

Dim excelApp As New Excel.Application
Dim excelWorkbook As Excel.Workbook = excelApp.Workbooks.Open("路径\文件名.xlsx")

Dim excelWorksheet As Excel.Worksheet = excelWorkbook.Sheets("工作表名称")
Dim excelRange As Excel.Range = excelWorksheet.UsedRange.Columns("列号")

Dim dataArray As Object(,) = excelRange.Value

excelWorkbook.Close()
excelApp.Quit()
System.Runtime.InteropServices.Marshal.ReleaseComObject(excelRange)
System.Runtime.InteropServices.Marshal.ReleaseComObject(excelWorksheet)
System.Runtime.InteropServices.Marshal.ReleaseComObject(excelWorkbook)
System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)

Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim excelApp As New Excel.Application
        Dim excelWorkbook As Excel.Workbook = excelApp.Workbooks.Open("路径\文件名.xlsx")
        Dim excelWorksheet As Excel.Worksheet = excelWorkbook.Sheets("工作表名称")
        Dim excelRange As Excel.Range = excelWorksheet.UsedRange.Columns("列号")
        Dim dataArray As Object(,) = excelRange.Value

        ' 使用数组中的数据进行后续操作

        excelWorkbook.Close()
        excelApp.Quit()
        System.Runtime.InteropServices.Marshal.ReleaseComObject(excelRange)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(excelWorksheet)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(excelWorkbook)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)
    End Sub
End Class