VBA怎么给另一个工作簿的textbox赋值？

Question

sub test()
Set Workbooks("test1").userform1.textbook1.Text = "aaa"
end sub
这样总是错误438 对象不支持该属性或方法
是我写的有错误还是什么问题呢

Answer 1

感觉是这个对象名写错了。文本框一般都是TEXTBOX+序号的自动名称，没必要自己起个名。

Answer 2

鄙人才疏学浅，给你个方法，此法可行，但不一定是最好的方法。
举例：
第一个工作簿名称为：文件1.xlsm
里面有一个用户窗体：UserForm1
窗体上有一个文本框：TextBox1
现在需要通过名称为 文件2.xlsm 的工作簿，向 文件1.xlsm 的文本框里写值。
方法：
第1步：在 文件1.xlsm 的模块中创建一个宏，比如叫：宏1，代码如下：
Sub 宏1()
With UserForm1
.Show 0
.TextBox1.Value = Sheet1.Range("A1")
End with

End Sub
第2步：在 文件2.xlsm 的模块中创建一个宏，用来向 文件1.xlsm 的 Sheet1.Range("A1") 中写入一个值、并运行 文件1.xlsm 的宏1，代码如下：
Sub 试试()
Workbooks("文件1.xlsm").Sheets("Sheet1").Range("A1") = "试验值"
Application.Run ("文件1.xlsm!宏1")
End Sub本回答被提问者采纳