VBA：将Excel范围读入对象数组

Question

如何将Excel范围读入对象数组？

澄清一下，对于这个Excel范围为6个单元格...

John    Roberts    56
Sam     Alito      52

还有这堂课

Class supremes      
Public firstName        
Public lastName     
Public age  
Dim supreme As New supremes 

我想将Excel范围读入一个如下的supreme数组：

arr(1).firstName = "John"   
arr(2).age = 52 

对于标准阵列，只需一次分配即可完成...

arr = range("supremes")

是否有类似的命令来填充对象数组？

Answer 1

没有将数据读入数组对象的任何特殊方法。 您只需要滚动自己的代码。

dim i as long
dim rData as range
dim vData as variant

set rData=selection

vData=rData

for i=1 to ubound(vdata)
  arr(i).FirstName=vdata(i,1)
  arr(i).LastName=vdata(i,2)
  arr(i).Age=vdata(i,3)
next i