Question

跪求高手，请教VB的传值问题

我现在遇到一个非常棘手的问题
首先我用excel表中的第一行第一列写了这样的字符 command1.left
其次在vb中
dim a(100) as string
a(1) = excel.Cells(1, 1)把excel中的command1.left作为字符串赋给a(1)
然后问题来了
我怎么在vb下读取command1.left作为变量名下的变量值
(PS：在VB中不能出现command1.left,因为数据量巨大，不可能一个一个打)
补充：
如果使用命令 b(1)=ScriptControl.Eval(a(1))
会出错，说 未找到对象command1
a
百度上的高手真多啊，ljl88900的回答比temp_1018更好，使用了callbyname
但我在这里补充下，我的对象不是一个一层的vb控件名，我只是举例
我的变量是类似这样的 ADApp.Simulation.Flowsheet.Streams("R1").T.Value("C")
是一个Object对象（ADAPP）的属性，不知哪位高手可以解决下，小弟感激万分

ps: ADApp是引用的一个类的对象 ，不是VB的控件
Controls("ADApp") 会显示 未找到控件‘Adapp’
Controls(ADApp) 会显示 类型不匹配

Answer 1

根据反馈，修改如下：
虽然我不知道ADApp是什么控件，但你可以用下面代码试试看：

Dim Obj As Object, b As String, i As Integer
Dim a(100) As String
a(1) = excel.Cells(1, 1) '从excel中读取数据
i = InStrRev(a(1), ".")
b = Trim(Left(a(1), i - 1))
Set Obj = Me.Controls(b)
b = Trim(Mid(a(1), i + 1))
MsgBox CallByName(Obj, b, VbGet) '这就是你想获取的东东

Answer 2

对于控件是可以的，但属性只能在程序中判断了，参考下例：

Dim obj As Object, a As String, b() As String
a = "command1.left"
b = Split(a, ".")

Set obj = Me.Controls(b(0))
Select Case UCase(b(1))
Case "NAME": a = obj.Name
Case "LEFT": a = obj.Left
Case "TOP": a = obj.Top
Case "RIGHT": a = obj.Right
Case "HEIGHT": a = obj.Height
End Select
MsgBox a

ljl88900回答确实很好。以前都没听说过CallByName函数，暴汗~~ 看来还要深入的学习才行啊...

Answer 3

定义 Object
或用 for if等间接实现