作者：乔山办公网日期：
返回目录：excel表格制作
以下CruUrl来返回当前网址的来.例如你已经用导VBA中的navigation方法,或senkey方法,等等已经自动打开了一个网址源并点了某个按钮或链接后,就可以用知以下CruUrl来判断是否等于你的目标网址,也就知道目标址是否打开,你试试吧道.
Function CurUrl()
Dim Obj As Object
On Error Resume Next
For Each Obj In CreateObject("Shell.Application").Windows
If TypeName(Obj.document) = "HTMLDocument" Then
CurUrl = Obj.LocationURL
End If
Next
End Function
WebBrowser1.Document.getElementsByTagName("TD") 这里百有错误啊，你这度里根据ID获取到TD，并知没有赋值，所以道会报错版啊，你赋值就可以了权
Dim strHTML As String
strHTML=WebBrowser1.Document.getElementsByTagName("TD").innerText
需要先插入窗体,然后再添加控件webbrowser,最后就可以像添加按钮一样，添加webbrowser控件
.Navigate "javascript:alert("""")"
复制代知码道
.document.parentWindow.execScript "alert(""玩"")"
复制代码
.document.parentwindow.eval "javascript:alert(""玩"")"
复制代码
好几个方回式都可答以