vb.net如何把excel的某列赋值给数组

要将Excel中的某列赋值给数组，您可以使用VB.NET中的Excel Interop库来读取Excel文件并将列数据存储在数组中。以下是一个示例代码：

Imports Microsoft.Office.Interop

Public Class Form1
    Private Sub ReadColumnToArrayButton_Click(sender As Object, e As EventArgs) Handles ReadColumnToArrayButton.Click
        ' Excel文件路径
        Dim filePath As String = "路径\文件名.xlsx"

        ' 创建Excel应用程序对象
        Dim excelApp As New Excel.Application()
        ' 打开工作簿
        Dim workbook As Excel.Workbook = excelApp.Workbooks.Open(filePath)
        ' 获取工作表
        Dim worksheet As Excel.Worksheet = workbook.Sheets("Sheet1")

        ' 获取要读取的列的范围
        Dim columnRange As Excel.Range = worksheet.Range("A1:A10")  ' 例如，读取A列的前10行数据

        ' 将列数据存储在数组中
        Dim dataArray(columnRange.Rows.Count) As Object
        Dim rowIndex As Integer = 0
        For Each cell As Excel.Range In columnRange.Cells
            dataArray(rowIndex) = cell.Value
            rowIndex += 1
        Next

        ' 关闭工作簿并退出Excel应用程序
        workbook.Close()
        excelApp.Quit()

        ' 释放资源
        ReleaseObject(columnRange)
        ReleaseObject(worksheet)
        ReleaseObject(workbook)
        ReleaseObject(excelApp)

        ' 在调试输出窗口打印数组元素
        For Each item As Object In dataArray
            Debug.WriteLine(item)
        Next

        MessageBox.Show("读取列数据成功！")
    End Sub

    ' 释放对象资源的方法
    Private Sub ReleaseObject(obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
            MessageBox.Show("释放资源时发生错误：" + ex.ToString())
        Finally
            GC.Collect()
        End Try
    End Sub
End Class

在上述代码中，我们使用`Open`方法打开Excel工作簿，并使用`Sheets`属性获取指定名称的工作表。然后，我们使用`Range`方法指定要读取的列的范围（例如"A1:A10"表示读取A列的前10行数据）。

接下来，我们创建一个数组，并使用循环将列数据存储在数组中。最后，我们关闭工作簿并退出Excel应用程序，并释放资源。

请注意，您需要根据实际情况修改Excel文件路径和要读取的列范围。

希望这可以帮助到您！