Question

VB 如何将一个字符串转化成一个对象

可能问题不太清楚，见部分代码
For i=0 to 3
listYSMC = split(YSMC(i),"|")
listYSSX = split (YSSX(i),"|")
listYSZ = split(YSZ(i),"|")
set listYSMC = newClass("DEST")
listYSMC.add listYSSX,listYSZ,false

其中listYSMC listYSSX listYSZ 都是我从excel中获取的值，listYSMC 是名称，我想把listYSMC 设置成一个对象 就跟 set xxx = new xxx（） 能实现吗？

Answer 1

对象不是特别多的话
用select case listYSMC
case a
set xxx =new a

case b
set xxx=new b

.
.
.
.
end select

追问

特别多 上百个把 所以才打算用excel存对象

追答

没有办法吧，你把几百个写一遍吧，辛苦一次，以后就省力了。。

Answer 2

http://download.csdn.net/detail/dqxxx/3808747