Вставить данные из ячейки одной книги в textbox формы другой книги

[ac1-caesar]

Уважаемые форумчане!

Пожалуйста, подскажите как вставить данные ячейки одной книги в textbox формы другой книги?
Открываю книгу где находится форма, запускаю в ней макрос "UserformOpen" в модуле "Module1" открывающий форму, а дальше не знаю как обратиться к форме и ее текстбоксу.

Set Wb = Workbooks.Open("D:Книга.xlsm")
Application.Run ("'Книга.xlsm'!Module1.UserformOpen")
обратиться к текстбоксу на форме = ThisWorkbook.Sheets("Sheet1").Cells(1,1)

Тема открыта здесь и здесь, может здесь народ поможет.

[IgorGO]

wb.userform1.textbox1.value = ThisWorkbook.Sheets("Sheet1").Cells(1,1)

не знаю что у Вас делает это
Application.Run ("'Книга.xlsm'!Module1.UserformOpen ")
но подозреваю, что значение в textbox1 нужно положить до выполнения макроса UserformOpen

[ac1-caesar]

Ну так ведь сначала открыть форму надо, чтобы туда значения вписывать.
Вот этой (Application.Run ("'Книга.xlsm'!Module1.UserformO pen ")) строкой я открываю форму другой книги и теперь пытаюсь в текстбокс этой формы вставить значение.

[ac1-caesar]

wb.userform1.textbox1.value = ThisWorkbook.Sheets("Sheet1").Cells(1,1)

не работает так, я уже пробовал.

[IgorGO]

Ну так ведь сначала открыть форму надо, чтобы туда значения вписывать.

в корне ошибаетесь, как только файл открыли (строкой выше) - под форму и все ее обьекты уже выделена память, со всеми контролами уже можно работать.

а в UserformOpen подозреваю наличие оператора UserForm1.Show
и следующая строчка, с присвоением ТекстБоксу значения, выполнится только после того как Вы закроете форму, открытую командой
Application.Run ("'Книга.xlsm'!Module1.UserformO pen ")
форма закрыта и теперь по-барабану, что там в ТекстБоксе

[IgorGO]

не работает так, я уже пробовал.

если порядок команд такой
1. открыть файл с формой
2. открыть форму
3. записать значение в ТекстБокс
то сделано все чтобы не увидеть что там в ТекстБокс планировалось вписать

поменяйте команды 2 и 3 местами

[ac1-caesar]

Спасибо. Завтра попробую сделать как советовали, потом отпишусь.
Получается с открытой формой работать невозможно?

[ac1-caesar]

К примеру на листе книги находится Listbox и я хочу перекинуть выбранное значение в textbox на форме другой книги? Если я поменю местами команды 2 и 3 то предположительно смогу в фоне вставить значение в texbox, затем открыть форму и увидеть вставленное значение. А если я захочу выбрать другое значение Listbox и опять вставить в textbox формы другой книги???

[IgorGO]

Получается с открытой формой работать невозможно?

с помощью последовательности каких умозаключений вы пришли к такому выводу?
не получается.

если есть четкое понимание что должно происходить с формой в определенных ситуациях - все это можно запрограммировать

[ac1-caesar]

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

если порядок команд такой
1. открыть файл с формой
2. открыть форму
3. записать значение в ТекстБокс
то сделано все чтобы не увидеть что там в ТекстБокс планировалось вписать

поменяйте команды 2 и 3 местами

Попробовал не получается. Порядок 1,2,3 нужен для того что при открытии формы происходит инициализация и работа с контролами. И только после инициализации необходимо вставить значение в textbox.
Но в обоих случаях выдает ошибку "object doesn't support this property or method", с подсветкой строки "wb.userform1.textbox1.value = ThisWorkbook.Sheets("Sheet1").Cells (1,1)"