在VBA中使用变量引用对象

Question

我正在编写一些VBA代码来动态定位表单上的某些元素。我想要做的是创建一个二维数组，引用11行标签和文本框对象，然后逐步遍历数组，并根据上述行的属性不同地定位每个“行”。

不幸的是，我似乎无法找到存储引用的方法！以下代码 产生错误：“对象不支持此属性或方法”

Dim fields(10,10) 
fields(0,0) = txtFirstName

如果我将对象分配给单个变量，那么

Dim field 
field = txtFirstName
MsgBox field.Top

然后我从赋值中得不到任何错误消息，但对field.Top的引用给出了错误“Object Required”。

拜托，我在这里做错了什么。我是新的堆栈溢出和VBA编码所以请原谅我，如果这是一个简单的解决方案，但我利用我的谷歌，我只是没有找到解决方案。非常感谢任何可以提供帮助的人。

Answer 1

您需要添加Set关键字，因为您正在处理对象引用。

Set fields(0,0) = txtFirstName

您收到错误的原因是因为VBA将默认为文本框的text属性，为您提供字符串而不是文本框对象。