WORD VBA 之 WebBrowser控件 出现错误的问题 请问一下如何修改?

一个VBA出现错误的问题,请问一下如何修改:
我在窗体UserForm2新增一个WebBrowser控件
然后在模块写一个子程序,想透过UserForm2的WebBrowser1上网查单字,如下

Sub bing查单字测试()
UserForm2.WebBrowser1.Navigate2 "https://www.bing.com/translator/…"
'最后的Test就是要查的单字

aty = UserForm2.WebBrowser1.Document.GetElementById("t_dummydiv").innerText
'执行到这里出现 "运行时错误91 没有设定对象变量或with局部变量"

MsgBox aty
End Sub


2个回答

搞了一天,原来不能定义成HTMLDocument或HTMLElement或String。
.value也没用。 必须定义成Variant。

Sub bing查单字测试()
Dim aty As Variant '原来这里要定义成Variant

UserForm2.WebBrowser1.Navigate2 "https://www.bing.com/translator/…"
'最后的Test就是要查的单字

aty = UserForm2.WebBrowser1.Document.GetElementById("t_dummydiv").innerText
'执行到这里出现 "运行时错误91 没有设定对象变量或with局部变量"

MsgBox aty
End Sub

可能是网页没有载入就执行到下面了
可以用
UserForm2.WebBrowser1.Navigate2 "https://www.bing.com/translator/…"
while UserForm2.WebBrowser1.IsBusy
doevents
wend
下面的代码

ggeess12000
ggeess12000 .IsBusy有错误,好像要改成 .Busy。不管停多久,下句还是一样,是不是少set 或dim 了甚么?
大约一年之前 回复
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问