Excel VBA のinternetexplorer.applicationを使用して あるサイトの情報を自動取得していたのですがうまくいきません。

Question

あるサイトの情報を自動取得したいのですがうまくいきません。

やりたいこととしては自動ログインしてログイン成功後のページ
の特定のＡタグをクリックして表示されたページの情報の取得したい、というものになります。

ターゲットのサイトを例えとして
http://abchoge.co.jp/login
とすると、まずこのサイトをNavigateして次にFor EachでInputタグを探し
該当の箇所にユーザー名とパスを入れ、同様にSubmitボタンを探し
Clickすると、画面はログイン成功後のページに遷移するのですが、
この遷移後のページのタグ等の情報が取得できないのです。

具体的にはログイン成功して画面が遷移した後も
objIeオブジェクトの内容が遷移前のログイン画面の情報のままになっており、
更新されていないようです。更新する方法や
または現在ブラウザに表示されているページ内の情報を取得する方法は
ありませんでしょうか？

ちなみにどういうわけか
ログイン画面のClickメソッドを実行する箇所にブレークポイントを
設け、手動でステップインしてログインするとうまくobjIeオブジェクトの内容が
遷移後のページ情報のものに更新されますが、全自動が望ましいです。

コードは以下のようになります。

Dim objIe As Object
Dim a As Object
Set objIe = CreateObject("internetexplorer.application")
objIe.Visible = True
objIe.navigate "http://abchoge.co.jp/login"
Do While objIe.Busy = True Or objIe.readyState <> 4
DoEvents
Loop

For Each a In objIe.document.all.tags("input")
If a.Name = "id" Then
a.Value = "id"
End If
Next
For Each a In objIe.document.all.tags("input")
If a.Name = "pass" Then
a.Value = "pass"
End If
Next
For Each a In objIe.document.all.tags("input")
If a.Name = "submit" Then
a.Click 'ここでブレークポイントを設け手動でステップインで実行するとobjIeの情報は更新されるのですが・・・
End If
Next
Do While objIe.Busy = True Or objIe.readyState <> 4
DoEvents
Loop
'↑ここまではログイン成功となり画面も遷移してうまくいきます

'↓ここであるはずの目的のAタグが見つからず失敗します(objIeの情報が遷移前のまま更新されていない)
For Each a In objIe.document.all.tags("a")
If a.Innertext = "target" Then
a.Click
End If
Next

ちなみにこのサイトは社内のイントラネットのものとなり、
社内PC以外からは通常アクセス不可能です。
またログイン後のページのURLもログイン画面のURLと同じもの
(両者http://abchoge.co.jp/login)となっており、
少し特殊？な作りとなっているサイトになります。

Answer 1

InternetExplorerMedium か、IInternetExplorerManager を使うとか。
https://gist.github.com/kumatti1/6b68ea65fdfc9ecf727f

Answer 2

以下のページを参考に「ページが完全に表示されるまで待機」させてみてはどうでしょうか？

エクセルVBAでInternetExplorerが完全に読み込まれるまで処理を待機するサブルーチン「ieCheck」

Do While objIE.document.ReadyState <> "complete"
先ほどはInternetExplorerオブジェクトの状態を対象にチェックしましたが、
こちらではDocumentオブジェクトの状態を対象にチェックをしています。

Comments

[hyouma]

ご回答いただきありがとうございます。
While objIE.document.ReadyState <> "complete"
で試してみましたが結果は同じでページ遷移後の情報は取得できませんでした。

[nabe3]

動作検証してみたところ、こちらでも再現しました。
また次のようにすることでログイン後の情報を取得できました。

'Sleep(待機)関数を使うためのAPI宣言
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Dim objWin As Object
For Each objWin In CreateObject("Shell.Application").Windows
Sleep (1000)
'Debug.Print "LocationURL = " & objWin.LocationURL
If objWin.LocationURL = "http://abchoge.co.jp/after_login" Then
Set objIe = objWin
Exit For
End If
Next

For Each a In objIe.document.all.tags("a")
'～略～

手元の確認ではログイン画面とログイン後画面のURLは別のものでした。
そのためobjWin.LocationURLでログイン後の画面を"URLで"探すことができました。
同じURLなのでこの手と全く同じ手ではうまくいかない可能性があります。
取得したWindowに対してそのページが正しいログイン画面かを確認してから、
目的のタグを探す必要があると思います。
参考ページ：
TypeNameとShell.Applicationを使い起動済みのIEを探す
http://www.ken3.org/vba/backno/vba156.html

[hyouma]

多忙につきご返事遅れまして申し訳ありませんでした。
来週テストしてみます。ありがとうございました。

[hyouma]

時間があまり取れず細かいテストはできませんでしたが、
こちらの方法でうまくいけそうです。ありがとうございました。