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

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

澄清，这6个单元格的Excel范围…

John Roberts 56 Sam Alito 52 

这个class…

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

我想读Excel范围到一个supreme的arrays：

 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