求救!实时错误91 对象变量或With块变量未设置

来源:百度知道 编辑:UC知道 时间:2024/05/16 14:23:21
(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
owb.All.Item("username").Value = "fengyunhualong"
Set owb = Nothing
End Sub

以上代码没有问题,我就是想给表单里一个文本框(比如上例中的文本框名为“username”)填写上“fengyunhualong”这四个字

但是由于表单里的名字是不固定的,也就是说其name属性不一定就是“username”
所以我必须得用变量的形式,但写成:

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" '我也声明它的值了,而且abc.html里的那个文本框的name属性值就是“username”
owb.All.Item(abc).Value = "fengyunhualong" '但这就提示了错误
Set owb = Nothing
End Sub<

你要引用Document的组件

在工程下点引用在选择Microsoft HTML Object 2.0

然后

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim owb As New HTMLDocument
Set owb = WebBrowser1.Document
Dim abc As String '我也定义变量了,类型也定义成了字符型
abc = "username" '我也声明它的值了,而且abc.html里的那个文本框的name属性值就是“username”
owb.All.Item(abc).Value = "fengyunhualong" '但这就提示了错误
Set owb = Nothing
End Sub