http://www.baidu.com/")
End Sub
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim newForm As New UserForm1
newForm.Show 0
Set ppDisp = newForm.WebBrowser1.Object
End Sub
当运行到Set ppDisp = newForm.WebBrowser1.Object
就出错:运行时错误‘438’
对象不支持该属性或方法
可是在VB6.0下运行就正常
请哪位大侠指点迷津,在下感激不尽。"/>
问题描述:
我想用用Word自带的VB编辑器编写浏览器,但是把VB下的代码复制到word的VB编辑器下就出错了:
Private Sub UserForm_Initialize()
WebBrowser1.Navigate ("http://www.baidu.com/")
End Sub
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim newForm As New UserForm1
newForm.Show 0
Set ppDisp = newForm.WebBrowser1.Object
End Sub
当运行到Set ppDisp = newForm.WebBrowser1.Object
就出错:运行时错误‘438’
对象不支持该属性或方法
可是在VB6.0下运行就正常
请哪位大侠指点迷津,在下感激不尽。
问题解答:
VBA与VB是有区别的。