香港新浪網 MySinaBlog
« 上一篇 | 下一篇 »
Emily | 24th Dec 2005, 21:30 PM | Network / Media | (1087 Reads)

列出 IE 開啟中的 URL (2)

以下編碼可列出 IE 連接中的 URL,需引用 Microsoft Internet Controls

' 引用 Microsoft Internet Controls

 
Sub IE_URL2()
 
Dim dWinFolder As New ShellWindows
Dim objIE As Object
Dim objDoc As Object
 
x = 1
For Each objIE In dWinFolder
Set Doc = objIE.Document
If TypeName(Doc) = "HTMLDocument" Then
    'MsgBox objIE.LocationURL '地址 URl
    Cells(x, 1) = objIE.LocationURL
    x = x + 1
End If
Next
End Sub