Добавление коллекции в коллецию

[Fadey001]

Всем привет.
Задача такая - Добавить коллекцию в коллекцию с ключами

'add first row
CollectionOne.add "Mark", "Name"
collectionOne.add "Park", "Surname"
CollectionOne.add 18, "Age"
'add to second collection
CollectionTwo.add CollectionOne
'clear first collection
Set CollectionOne = Nothing
'add second row
CollectionOne.add "Sting", "Name"
collectionOne.add "King", "Surname"
CollectionOne.add 50, "Age"
'add to second collection
CollectionTwo.add CollectionOne

Путем таких хитрых манипуляций получается эдакий многомерный массив
Теперь его можно обработать циклом For Each и будет счастье.
Например так:

For Each item in CollectionTwo
Msgbox item("name") & " " & item("surname") & " " & item("age")
Next

Получим два Месседж бокса и в каждом будет имя, фамилия и возраст.
Но это все лирика, а теперь внимание вопрос:
Как можно записать данные сразу во вторую коллекцию не создавая первой? И вообще можно ли это сделать?
А то плодить кучу переменных в большом проекте очень не хочется

[IgorGO]

все описанное реализовано в Tree View Control плюс есть возможность визуализировать это дерево коллекций, аналогично как структуру папок и файлов в Проводнике

Инет полон примеров по теме
Удачи!

[Fadey001]

Спасибо за быстрый ответ.
Да, это очень интересная вещь, и я даже знаю куда я ее засуну в другом проекте, спасибо огромное!
Но думаю в данном случае мне это не подойдет, так как нужно именно подобие именованных массивов с ключами, как во "взрослых" языках программирования

[EducatedFool]

не пробовали использовать классы?
думаю, в вашем случае это именно то, что надо

экземпляр класса может содержать в себе экземпляры как других классов, так и самого себя

поищите в инете примеры использования классов в VBA
если с английским дружите - это можно поглядеть: http://www.cpearson.com/Excel/Classes.aspx

а вот здесь на картинках все описано:
http://stackoverflow.com/questions/1...in-a-similar-m

[Fadey001]

Вот как раз сейчас я и пишу класс который парсит данные с веб страницы, но что их можно использовать в таком качестве это для меня открытие. Век живи век учись! )))
Спасибо вам за ссылочки, добавил в закладки.
Но наверно в моем случае лучше будет все таки делать так, потому как заранее не известно сколько будет элементов в коллекции, и не известно сколько нужно будет создать экземпляров класса. Наполнение коллекции тоже происходит в цикле.
Но конечно и таким способом можно сделать если включить мозги, но мне видится что для этого потребуется больше кода чем есть у меня сейчас, а идея была как раз в том что бы уменьшить код. В идеале до одной строчки в цикле.
Всем спасибо за ответы.
P.S. зашел спросить про один вопрос, а получил ответ на другие вопросы на которые когда то не смог найти ответов))))

[EducatedFool]

Но наверно в моем случае лучше будет все таки делать так, потому как заранее не известно сколько будет элементов в коллекции

а чем отличается создание экземпляра класса от создания нового элемента в коллекции?
то, что 2 строки кода вместо одной?
зато потом работать с классами намного удобнее

идея была как раз в том что бы уменьшить код

а зачем? байты экономите, теряя в удобстве и производительности?
может, тогда к ассемблеру стоит присмотреться?)

[Fadey001]

EducatedFool полностью согласен с вами, дело в том что пишу не для себя, а для людей которые не умеют работать с классами)))
Быстро научить их писать что нибудь вроде этого легко

Dim Tools as new ToolsClass
Tools.pasing("parameter")
Range("A1").value = Tools.date
Range("B1").value = Tools.title
Range("C1").value = Tools.number

А вот как работать с классами, сомневаюсь.
Тем более что люди за 5 лет сами так и не научились