VBAでＷＥＢのリンクをクリックしたい

質問

取引先のＷｅｂサイトから請求書のデータを取得しようと思い、該当ページに到達すべくコードを書いてみました。

以下のコードを　Ｆ８　キーでステップ実行を続けると目的を達するのですが、ボタンに割付て実行するとログイン後のページを表示した後目的のリンクをクリックできません。
状態待ちかと思い待機コードをビシバシ突っ込みましたが通常実行では目的のリンクをクリックしてくれません。
どうしたらよいでしょうか?

Sub サイトオープン()
Set objIE = CreateObject("InternetExplorer.Application")

With objIE
.Navigate "https://www2.hogehoge/Login.jsp"
.Visible = True
'IE待機
Do While .Busy = True
DoEvents
Loop
'テストボックスへ入力
.Document.all.Item("userId").Value = Range("b1").Value
.Document.all.Item("password").Value = Range("b2").Value
'送信ボタンクリック
.Document.forms(0).submit　　　　　'←ここまではOK
　　 'IE待機
Application.Wait 3000 '1000分の1秒
Do While .Busy = True
DoEvents
Loop
　　　　’フレーム内のリンク確認
For Each objLink In objIE.Document.frames("right").Document.Links
If objLink.Href = "https://www2.hogehoge/BillList.jsp?init=false&search=???&page=Top" Then '←F8ステップ実行ではＯＫだが、通常処理では判定されない？
　　　　 'IE待機
Do While .Busy = True
DoEvents
Loop
　’リンクをクリック　
　　　　　　　 objLink.Click　　’←要はこれをしたい！
　　　　　　 'IE待機
　　　　 Application.Wait 3000 '1000分の1秒
Do While .Busy = True
DoEvents
Loop
Exit For
End If
Next
End With
Set objIE = Nothing
End Sub

回答No.1

cistronezk · ベストアンサー

＞状態待ちかと思い待機コードをビシバシ突っ込みましたが
「objIE.ReadyState <> 4 」も追加してみては？
While objIE.ReadyState <> 4 Or .Busy
DoEvents
Wend

＞If objLink.Href = ・・・​ Then '←F8ステップ実行ではＯＫだが、通常処理では判定されない？
どこを処理して、どこを処理していないのかが不明なわけですね。
＞If objLink.Href = ・・・​ Then
の次に
WorkSheets("Sheet1").Range("A1").Value=objLink.Href
を追加して、If文が判定されているかを確認してはどうでしょう。

お礼

ご回答ありがとうございます。
>「objIE.ReadyState <> 4 」も追加してみては？
.Document.forms(0).submit　　　　　
の直下で
While objIE.ReadyState <> 4 Or .Busy
DoEvents
Wend
とすることで、無事解決できました。

>どこを処理して、どこを処理していないのかが不明なわけですね。
質問投稿後に思いついて

>For Each objLink In objIE.Document.frames("right").Document.Links
>If objLink.Href = "​https://www2.hogehoge/～" Then
の間で
Msgbox(objLink.Href)
としたら何の反応もなかったので「フレーム内の読み込みが終わらないうちにVBAコードが走っているのでは?」と考えていました。
#2氏ご提示のサイトでも　objIE.ReadyState <> 4　の類は示されていたのですが自らコーディングできなかったですね・・・。

おかげさまでスムーズに目的のサイトを開くことができるようになりました。ありがとうございます。

回答No.2

Wendy02

こんばんは。

あまり、こういう質問には良いアドバイスが出来ません。結局、ログを取って、そこから読んでいただくしかありません。ログから、Excelでタグの一覧を取る方法もありますから、以下のリンク先の「三流君VBA」を参考にしてみてください。

http://www.ken3.org/cgi-bin/group/vba_ie.asp#Input_Radio

>If objLink.Href = "https://www2.hogehoge/BillList.jsp?init=false&search=pa... Then '←F8ステップ実行ではＯＫだが、通常処理では判定されない？

本当にそうなっているでしょうか？ソースを見ないといえないような気がします。だいたいは、途中からだと思います。ローカルウィンドウやDebug.Print で、その取った値を取ってみたほうがよいですね。

>objLink.Click　　’←要はこれをしたい！

ソースから分かれば、それはそれでよいのですが、直接ではありませんが、要するに、タグを見つけることに他ならないと思います。

良いサンプルとして、上記に書いたサイトで、タグをExcelで一覧を出してみる方法がよいのではないかと思います。HTMLコードだけで辺りを付ければよいのですが、私自身も、タグの一覧から中りを付けています。

それと、
Application.Wait 3000 '1000分の1秒
　　　　↓
Application.Wait TimeSerial(0,0,3)
のことだと思います。

または、
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Sleep 3000
と書きます。

お礼

ご回答いただきありがとうございます。

>以下のリンク先の「三流君VBA」を参考にしてみてください。
このサイトを参考に２日間格闘した結果が質問コードでした（^^;;

>Application.Wait 3000 '1000分の1秒
>　　　　↓
>Application.Wait TimeSerial(0,0,3)
>のことだと思います。

ご指摘ありがとうございます。
>.Document.forms(0).submit　　　　　'←ここまではOK
>Application.Wait 3000 '1000分の1秒
>Do While .Busy = True
>DoEvents
>Loop
上記を
Application.Wait TimeSerial(0,0,3)
に修正したところ、なんと直下のDo～Loopが抜けなくなりました(@_@)?
なんとか自分で調べてみようと思います。

また何かの機会でご教授いただくことがあるかも知れませんが、その際は宜しくお願いします。