現在開かれているIEのアドレスを取得したい

質問

お世話になります。

ＶＢＡで作成しております。
objIE.Navigate "http:Ａ"
でＡのページを開こうとしています。
しかしながら、Ａに行くにはパスワードが必要で途中でＢのパスワードを入力する画面が必要になることがあります。

既にログインしている場合は
objIE.Navigate "http:Ａ"
IEのフォームに対して入力するコマンド
でうまくいくのですが、
ログインしていないときは
objIE.Navigate "http:Ａ"をすると、パスワード入力画面が
出てきますので、
IEのフォームに対して入力するコマンド　でエラーが出ます。

そこで、現在開かれているページのアドレスを取得して、
"http:Ａ"　ならIEのフォームに対して入力するコマンド　を実行と
したいのですが、
現在ＩＥで開かれているアドレスはどのようにすれば取得できるでしょうか？

お手数ですがよろしくお願いします。

回答No.1

watabe007 · ベストアンサー

>現在開かれているIEのアドレスを取得したい
Sub Test()
　　Dim objIE As Object
　　Dim objShell As Object
　　Dim objWin As Object

　　Set objShell = CreateObject("Shell.Application")　　
　　For Each objWin In objShell.Windows
　　　　If TypeName(objWin.document) = "HTMLDocument" Then
　　　　　　MsgBox objWin.LocationURL
　　　　End If
　　Next
End Sub