Получить свойство объекта по его имени, заданному As String

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Alex_ST

Дата: Четверг, 23.06.2011, 13:22 | Сообщение № 1

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3213

Репутация: 609 ±

Замечаний: 0% ±

2003

Мне нужно считывать и хранить (ну, например, в словаре) набор свойств объекта (например, Range).
Свойств много (с десяток). Не хотелось бы тупо в программе считывать и записывать их по одному.
Удобно было бы пройтись циклом по стринг-массиву с именами требуемых свойств и считать их значения.
Вот, например, функция, возвращающая массив некоторых свойств диапазона:
[vba]

Код

Function GetRngProps(rRng As Range)
     Dim Arr(), iArr
     Arr = Array("Address", "AllowEdit", "Name", "Left", "Width", "Top", "Height")
     With CreateObject("Scripting.Dictionary")
        For Each iArr In Arr
           .Item(iArr) = rRng.iArr 'так не пройдёт, т.к. не верное обращение к объекту: rRng.iArr
        Next iArr
        GetRngProps = .Items
     End With
End Function

[/vba]
точно также не пройдёт и обращение .Item(iArr) = rRng(iArr) , т.к. это не коллекция...

P.S. Range и именно такой набор свойств взят для примера. Объект и свойства могут быть другими.
Тут вопрос именно об альтернативном синтаксисе обращения к объектам. Т.е. не через точку, а через имя свойства.

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

KuklP

Дата: Четверг, 23.06.2011, 13:45 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Леш, думаю, тебе нужно будет объявлять пользовательский тип как то:
Public Type SPdata
SPfam As String
SPname As String
SPfath As String
SPdate As Date
SPrab As Date
End Type
потом присваивать ему значения, и только потом извлекать их biggrin