引用 Excel 数据创建数组

Sub Excel数组()  '引用 Excel 数据创建数组
Dim Exl As Object, x1 As Object, arr, i&, j&
Set Exl = CreateObject("Excel.Application")  '创建Excel应用程序对象
Set xl = Exl.Workbooks.Open("F:\导向\课件1.2.3\CD数组测试.xlsx")  '打开Excel工作簿
arr = xl.Sheets(1).Range("A1").CurrentRegion  '单元格连续区域
xl.Close False  '关闭工作簿。
Rem 测试输出数组内容
'    For i = 2 To UBound(arr, 1)
'        For j = 2 To UBound(arr, 2)
'            Debug.Print arr(i, j)
'        Next
'    Next
End Sub