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