VBA设定文本为对象

显示全部楼层 · 2011-7-19 14:12:05

Dim strName as String
'声明strName为文本
Dim Obj as Object '声明Obj为对象
strName="Main.TextBox6" 'strName赋值
set Obj=strName '设置文本为对象
如上代码返回 Type mismatch ,望大虾指教。。
txtPosition = "Form1"
'窗体名称
txtName = "TextBox6"
'TextBox名称
MsgBox txtPosition(txtName).Value '想达到 MsgBox Form1(TextBox6).Value 的效果
或 MsgBox Form1.TextBox6.Value
目的是通过循环修改控件的属性或值。

千问 · 2011-7-19 14:12:05

strName="Main.TextBox6"
'strName赋值'该赋值没有错：strName串值=="Main.TextBox6"set Obj=strName
'设置文本为对象'错误：将一个串值赋予一个对象变量，“类型不匹配”‘建议：使用如下语句可以解决。使用窗体Controls属性(带索引号)，赋予对象变量'控件的索引号0起，n-1止，n是窗体中的控件个数。Set Obj = Me.Controls(0)’实例：TextBox6.Text = "试试看"Set Obj = Me.Controls(0) ‘窗体中仅有TextBox6文本控件msgBox obj.text’输出显示：试试...

千问 · 2011-7-19 14:12:05

Dim strName As String
'声明strName为文本Dim Obj As Object
'声明Obj为对象strName = "TextBox6" 'strName赋值Set Obj = CallByName(Main, strName, VbGet) '其中Main为工作表的名称...