La seguente funzione è valida SOLO con IE
Sub ListURLS()
Dim objShellWindows As SHDocVw.ShellWindows
Dim objWindow As Object
Set objShellWindows = New SHDocVw.ShellWindows
Stop
'ignore errors when accessing the document property
On Error Resume Next
'loop over all Shell-Windows
For Each objWindow In objShellWindows
'if the document is of type HTMLDocument, it is an IE window
If TypeName(objWindow.Document) = "HTMLDocument" Then
MsgBox objWindow.Document.URL, vbInformation, "INFO"
End If
Next objWindow
Set objShellWindows = Nothing
End Sub
Sono al 20% della risoluzione del mio problema (20% corrisponde molto approssimativamente alla percentuale di uso di Internet Explorer). Ed il restante 80% come lo affronto ? Firefox, Chrome, Opera, ecc.