vb怎么用excel表给数组赋值

可以使用以下代码将Excel表中的数据赋值给数组：

Dim xlApp As ObjectDim xlWorkbook As ObjectDim xlWorksheet As ObjectDim arrData As VariantDim i As LongDim numRows As Long' 创建Excel对象Set xlApp = CreateObject("Excel.Application")' 打开Excel文件Set xlWorkbook = xlApp.Workbooks.Open("C:\path\to\excel_file.xlsx")' 选择工作表Set xlWorksheet = xlWorkbook.Sheets("Sheet1")' 获取数据范围的行数和列数numRows = xlWorksheet.UsedRange.Rows.Count' 将数据范围的值赋值给数组arrData = xlWorksheet.Range("A1:B" & numRows).Value' 关闭Excel文件xlWorkbook.Close' 退出Excel应用程序xlApp.Quit' 在数组中循环输出数据For i = 1 To numRowsDebug.Print arrData(i, 1) ' 第一列的数据Debug.Print arrData(i, 2) ' 第二列的数据Next i

请将上述代码中的 “C:\path\to\excel_file.xlsx” 替换为你实际的Excel文件路径，“Sheet1” 替换为你实际的工作表名称。该代码将Excel文件中从A1单元格开始到B列最后有数据的单元格的数值赋值给名为 arrData 的二维数组。你可以根据自己的需要修改代码以适应实际情况。