标题: 引用 Excel 数据创建数组 [打印本页] 作者: vfocectfpjth 时间: 10 小时前 标题: 引用 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