他のbookのフォームに値を代入する方法

book1からbook2を開きます。book2のフォーム1に　book1のセルの値を送り込みたいのですが

’appwb.Worksheets("UserForm1").TxtPassword.Value = Sheet2.Range("K2")
appwb.UserForm1.Controls(TxtPassword).Value = Sheet2.Range("K2")

TxtPassword　この変数は　知らない　となります。まあ、当たり前と言えば、他のbookのことですから・・・・

如何でしょうか？

前処理は
Target = Sheet2.Range("G2")
'Target = "b.xlsm"
f_Target = ActiveWorkbook.Path & "\" & Target
buf = Dir(Target)
If buf = "" Then
MsgBox Target & vbCrLf & "は存在しません", vbExclamation
' Exit Sub
End If
For Each appwb In Workbooks
If appwb.Name = buf Then
MsgBox buf & vbCrLf & "はすでに開いています", vbExclamation
' Exit Sub
Else
Set appwb = Workbooks.Open(f_Target)
End If
Next appwb

No.1 ベストアンサー 回答者： bonaron 回答日時： 2016/02/14 11:47

ユーザーフォーム UserForm1 にTxtPassword という名前のテキストボックスがある、

ということでしょうか？

でしたら

appwb.UserForm1.Controls(”TxtPassword").Value = Sheet2.Range("K2")

この回答へのお礼

お礼が遅れて申し訳ありませんでした、””ねえ・・・・。まだまだです・・・・

お礼日時：2016/02/15 18:53