VBA IE操作 ログイン後ＵＲＬを取得したい

質問

yahooにログインするＶＢＡコードはわかるのですが、
ログインが失敗なのか正常にログインできたのかをＶＢＡで知りたいです。

結果を知るには、ログインボタン押下後のＵＲＬを取得できればいいと思うのですが
その方法がわかりません。

ログイン自体は、
---------------------------------------------------------
Sub ie_test()

Dim objIE As Object 'ＩＥオブジェクト参照用

'インターネットエクスプローラーのオブジェクトを作る
Set objIE = CreateObject("InternetExplorer.application")

objIE.Visible = True '見えるようにする(お約束)

'文字列で指定したＵＲＬに飛ぶ
objIE.Navigate "https://login.yahoo.co.jp/config/login?.src=www&.done=http://www.yahoo.co.jp"

'表示終了まで待つ
Do While objIE.Busy = True
'何もしないループ（笑）
DoEvents
Loop

'項目名を指定して、データをセットする
objIE.document.all.UserName.Value = "UserName"
objIE.document.all.passwd.Value = "****"

objIE.document.Forms(0).submit

End Sub
---------------------------------------------------------
で、できました。

objIE.document.Forms(0).submitの後には、
ログインが出来ていたら
http://www.yahoo.co.jp/
のページへ行き、
ログイン失敗なら
https://login.yahoo.co.jp/config/login?
のＵＲＬが表示され、図のように
「Yahoo! JAPAN IDまたはパスワードが正しくありません。」
と表示されます。

objIE.document.Forms(0).submitの後に
MsgBox objIE.URL
を入れると
「オブジェクトは、このプロパティまたはメソッドをサポートしていません。(Error 438)」
になり、
MsgBox objIE.Navigate
を入れると
「引数の数が一致していません。または不正なプロパティを指定しています。(Error 450)」
になります。

ログイン後のソースをエクセルに書き出す方法も考えましたが、書き出しに時間がかかるのでやめました。

ご教授よろしくお願いします。

回答No.1

watabe007 · ベストアンサー

>objIE.document.Forms(0).submit
の後に表示が完了するのを待たなければ
Do While objIE.Busy = True Or objIE.ReadyState <> 4
　　DoEvents
Loop

その後に
MsgBox objIE.LocationURL
または、これかな
With CreateObject("Shell.Application").Windows
　　MsgBox .Item(.Count - 1).LocationURL
End With

お礼

MsgBox objIE.LocationURLでできました！ありがとうございました。大変参考になりました。