Question

在WebBrowser中如何通过变量值来访问网页标签

想给一个文本框填写上“风云化龙”这四个字

webDoc是建立的WebBrowser对象
假如此时这个文本框的name属性为“username”
我使用
webDoc.All.Item("username").Value = "风云化龙"
这可以赋给username文本框“风云化龙”

但是由于这个文本框的名字不一定一直就是“username”（我要实现给多个网站填写数据，每个网站设置的登录的文本框的名字不一定都是“username”）
所以我想定义一个函数，在此函数中加一个参数，这个参数就是要填写“风云化龙”这四个字的文本框的名字
具体：
function TianXie(textInputName)
具体建立WebBrowser对象的相关语句就不写了
关键一句：
webDoc.All.Item(textInputName).Value = "风云化龙"
end function
这时，就会提示：
“
实时错误 91
对象变量或With块变量未设置
”

也就是说不能通过变量名的形式（webDoc.All.Item(textInputName)）访问页面上的标签
Item()里的只能是常量的形式（如webDoc.All.Item("username")）

怎样才能实现通过变量来访问网页中的标签？
以使webDoc.All.Item(变量名)这样的形式不会再有那样的错误提示？

急！

谢谢各位老师帮助！
这是我所有的代码：
（abc.html里，有表单，表单里有一个文本框，其name属性为“username”）

Private Sub Form_Load()
WebBrowser1.Navigate App.Path & "\abc.html"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim owb As Object
Set owb = WebBrowser1.Document
Dim abc As String
abc = "username"
owb.All.Item(abc).Value = "风云化龙" '这样写成变量的形式，就会出错误
Set owb = Nothing
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim owb As Object
Set owb = WebBrowser1.Document
Dim abc As String
abc = "username"
要是不用变量，写成常量的形式就没问题
owb.All.Item("username").Value = "风云化龙" '这样写，就可以成功执行
Set owb = Nothing
End Sub

Answer 1

我记得是不是要加一个new啊？

Answer 2

textInputName 必须为 string型，且声明变量
应该是你其他代码有问题