Ошибка при работе с объектами

[transgd]

Почему при выполнении кода:

Dim iObject As Object
For Each iObject In Me.Objects

Next


на For Each iObject In Me.Objects выдает ошибку:

Method or data member not found (не найден метод или член данных)?

[SAS888]

О чем идет речь? Рабочий лист? Форма? Что в данном случае "Me"? Какие объекты Вам нужны? Что это за коллекция Objects?

[transgd]

Да, это форма. Хочется перебрать объекты TextBox этой формы, присвоить ячейкам в конкретных листах значения .Text этих объектов.

[SAS888]

Например, так:

For Each Ctrl In Me.Controls
    If Ctrl.Name Like "TextBox*" Then
        'Ваш код
    End If
Next

[transgd]

Да, Me.Controls - работает. Спасибо.
Извините за не правильную (неполную) формулировку вопроса в теме.
Попробую реализовать "тело" данной процедуры.
Прошу заглянуть сюда еще, возможно появится еще вопрос по перебору всех указанных выше объектов. Их имена с TextBox6 по TextBox36 (т.е. 31 объект). Цифры в именах этих объектов совпадают с номерами колонок ячеек, в которые необходимо записать значения этих объектов.
Хочется реализовать это в цикле.

[SAS888]

Можно, например, так:

Dim i As Integer, Ctrl As Control
For Each Ctrl In Me.Controls
    If Ctrl.Name Like "TextBox*" Then
        i = Val(Replace(Ctrl.Name, "TextBox", ""))
        If i > 5 And i < 37 Then Cells(1, i) = Ctrl.Text
    End If
Next

Данный код поместит значения TextBox-ов с 6 по 36 в ячейку активного листа в строку 1 столбец, номер которого совпадает с номером соответствубщего TextBox-а.

[transgd]

Да, примерно так я и сделал, только вместо Replace использовал Right и Len.
Еще раз - СПАСИБО.
И еще один вопрос: можно ли обращаться к объекту, имя которого сохранено в переменной? Т.е. обращаться к нему через переменную.

[SAS888]

вместо Replace использовал Right и Len

Можно и так, но т.к. TextBox-ы есть и с однозначным, так и с двузначным числовым обозначением, то по-моему, с Replace проще.

можно ли обращаться к объекту, имя которого сохранено в переменной? Т.е. обращаться к нему через переменную.

Конечно, можно.

[transgd]

А каким образом обращаться к объекту через переменную, в которой хранится его имя или свойство.
Допустим: sЗначение = "TextBox" & i & ".Text"
Как сохранить в ячейке (допустим Cells(iRow,i) значение из TextBox1.Text, через переменную - sЗначение?

[SAS888]

Например, так:

sЗначение = Controls("TextBox" & i).Value