Передача данных в пользовательскую форму

[jimmyyong]

Друзья! Подскажите каким образом можно произвести передачу данных из Модуля (Module) в пользовательскую форму (Userform).

Модуль

Sub Какая-то процедура()
‘1) Формирование ссылок на книгу
Dim Wb As Workbook: Set Wb = WorkBooks.Open("C:\МойФайл.xls")
‘2) Формирование массива
Dim Массив(1 to 2)
Массив(1)=11: Массив(2)=12
‘3) Запуск Формы
Forma.Show ( << Передача данных в ФОРМУ >>)
End sub

Пользовательская форма:

Private Sub UserForm_Initialize()
'1) << Работа с ссылкой на книгу WB >>
'2) << Работа с Массивом >>
End Sub

[SAS888]

Объявите книгу и массив как глобальные переменные, и они будут доступны из любого модуля, в том числи и из UserForm.
Для этого, в программный модуль:

Public Wb As Workbook
Public Массив(1 To 2)
Sub Какая_то_процедура()
    '1) Формирование ссылок на книгу
    Set Wb = Workbooks.Open("C:\МойФайл.xls")
    '2) Формирование массива
    Массив(1) = 11: Массив(2) = 12
    '3) Запуск Формы
    Forma.Show
End Sub

[IgorGO]

"передача данных" осуществляется через пармаметры процедуры
обьявление глобальных переменных решает Вашу задачу, но не является передачей данных в принятом в программировании понимании

в одной из анкет на соискание должности программиста я встретился с вопросом:
"Привлекались ли Вы к уголовной ответсвенности за хранение данных в глобальных переменных?"

[Hugo121]

Как-то смущает формулировка "передача данных"... Обычно форма сама берёт что ей нужно с листа или из публичных переменных, хотя можно и насильно что-то запихнуть в её элементы:

Option Explicit

Sub tt()
    UserForm1.Show
End Sub

Sub ttt()
    UserForm1.TextBox1 = "test"
End Sub

[jimmyyong]

Сообщение от Hugo121

Как-то смущает формулировка "передача данных"... Обычно форма сама берёт что ей нужно с листа или из публичных переменных, хотя можно и насильно что-то запихнуть в её элементы:

В моем случае форма должна именно получать данные т.к. они формируются динамически в процессе работы процедуры модуля и меняются многократно.

Желания определять глобальные переменные для формы нет потому, как они нужны только для формы и для остальных процедур не задействуются.

Методом проб и ошибок пришел к следующему варианту:
В Модуле:

Sub Процедура()
Dim Mass(1 To 3)
    Mass(1) = 1111
    Mass(2) = 2222
    Mass(3) = 3333
Call UserForm1.ФОРМА(Mass)
End Sub

В Форме (взамен стандартной процедуры инициализации):

Sub ФОРМА(Mass)
    For i = LBound(Mass) To UBound(Mass)
        UserForm1.ListBox1.AddItem (Mass(i))
    Next i
    UserForm1.Show
End Sub