以下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