IE操作 ソース内のjavascriptを表示後、
VBAでIE操作をしているのですが、
javascriptのURLを踏んだ後に、そのページをオブジェクトに格納して値の取得等をしたいのですが、
うまくいきません。
For Each myObj In objIE.document.all.tags("a")
If myObj.href Like "*affiliateUrl1*" Then
objIE.navigate myObj.href
' Call IE_wait
Exit For
End If
Next
上記のコードで、
javascript:show_rakuten_linkcd('linkUrl1','imageUrl_S1','imageUrl_M1','title1','price1','reviewCount1','affiliateUrl1');
を見つけて、objIE.navigate myObj.href
で、ページを表示することは出来たのですが、
Call IE_wait
で
Sub IE_wait()
Const READYSTATE_COMPLETE As Long = 4
Do Until objIE.readyState = READYSTATE_COMPLETE
Loop
Do While objIE.Busy = True
DoEvents
Loop
End Sub
をすると、無限ループに入ります。
javascriptでページを表示させても、
objIEに格納されているURLは、javascriptを踏む前の元のページだからと思います。
なので、表示されるまで待つのは手動でやるとしたのですが、
その後、
For Each myObj In objIE.document.all.tags("testarea")
If myObj.Name = "code" Then
’ソース取得
End If
Next
とやろうとしても、objIEに格納されているＵＲＬがjavascriptで表示させているページでない為、
取得できません。
objIE.navigate myObj.href
を実行した後に、javascriptのページ(小窓）を格納する方法があれば教えてください。
よろしくお願いします。
補足
サンプルの提示ありがとうございます。 しかし、私がやりたいのは (1)Navigate("任意URL"); で任意のWebページに移動 (2)手順(1)で移動したページ内のボタンを取得。そのボタンを押下し、さらにページ移動 (3)手順(2)で移動したページのボタンの要素を取得。 という動作を実現したいのですが、どうしても(3)でinnerHTMLを使用してページのソースを確認してみると(1)のページのソースを保持しているみたいなのです。 Jscriptの仕様として、このような動作はできないのでしょうか。