可以使用以下代码将Excel表中的数据赋值给数组：
Dim xlApp As Object
Dim xlWorkbook As Object
Dim xlWorksheet As Object
Dim arrData As Variant
Dim i As Long
Dim 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 numRows
Debug.Print arrData(i, 1) ' 第一列的数据
Debug.Print arrData(i, 2) ' 第二列的数据
Next i
请将上述代码中的 “C:\path\to\excel_file.xlsx” 替换为你实际的Excel文件路径，“Sheet1” 替换为你实际的工作表名称。该代码将Excel文件中从A1单元格开始到B列最后有数据的单元格的数值赋值给名为 arrData 的二维数组。你可以根据自己的需要修改代码以适应实际情况。
