開いているﾌﾞﾗｳｻﾞのURL取得方法を教えてください｡
現在開かれているﾌﾞﾗｳｻﾞのURLを全て取得したいのですが､ｱﾄﾞﾚｽﾊﾞｰ非表示のﾌﾞﾗｳｻﾞのURLが取得できません｡
CreateObject("Shell.Application")以外で､既存のﾌﾞﾗｳｻﾞのURLを全て取得する方法はないでしょうか？
OS:Windows7
開発:Access2010
ﾌﾞﾗｳｻﾞ:IE8
Dim objShell As Object
Dim objIE As Object
Dim n As Integer
Set objShell = CreateObject("Shell.Application")
'objShell.Windows.Countでｱﾄﾞﾚｽﾊﾞｰ非表示のﾌﾞﾗｳｻﾞだと0が帰ってきます｡
For n = objShell.Windows.Count To 1 Step -1
Set objIE = objShell.Windows(n - 1)
If Right(UCase(objIE.FullName), 12) = "IEXPLORE.EXE" Then
Do While objIE.Busy = True
DoEvents
Loop
Debug.Print objIE.Document.URL
End If
Next
Set objIE = Nothing
Set objShell = Nothing
ｱﾄﾞﾚｽﾊﾞｰ非表示のｳｨﾝﾄﾞｳが一つでもあるとobjShell.Windows.Countが0を返す､という事なのでしょうか？
状況がよくわからないのですが､objShell.Windows.Countの値が怪しい事はあるっぽいですね(再現できませんでしたが)｡
For Eachを使ったらどうでしょうか？
Dim objShell As Object
Dim objIE As Object
Set objShell = CreateObject("Shell.Application")
For Each objIE In objShell.Windows
If Right(UCase(objIE.FullName), 12) = "IEXPLORE.EXE" Then
Do While objIE.Busy = True
DoEvents
Loop
Debug.Print objIE.Document.URL
End If
Next
Set objIE = Nothing
Set objShell = Nothing
ﾍﾞｽﾄｱﾝｻｰ