[求助]如何用CallByName函数完成？

Question

例如使用CallByName实现下面的属性赋值或者方法调用        doc.All.voteform6259.ans1_63.Checked = 1
        doc.All.voteform6259.vote.Click
但是
voteform6259
ans1_63
需要能够变化，在字符串中定义。

Answer 1

doc.all以及voteform6259、ans1_63都是什么对象？

Answer 2

严格按照CallByName的参数要求一次次求值。
CallByName需要一个对象名，属性名，属性类型。
你一层层找对象名及其属性就好

Answer 3

CallByName不支持跨层次的访问对象。doc.All.voteform6259.ans1_63.Checked = 1dim obj  as object
set obj = doc.all.voteform6259.ans1_63CallByName obj,"Checked",VbLet,1

Answer 4

是啊～就是引用的WebBrowser控件里的对象