動的html？の値取得について 削除
| Message#1 2018年5月23日(水)20時41分 From: こばこば |
| 下記のようなコードを作成したのですが・・・（パクリばかりですが） getElementsByClassName("state2")(0)で値取得を試みているのですが うまく取得できず、LOOP処理が抜けられないことがあります。 ※値取得出来る場合と出来ない場合があります。 出来ない場合はLOOPから抜けられません。 どうにかして、安定してgetElementsByClassName("state2")(0)の値を取得したいのですが、うまくいきません。 何か良い方法がございましたら、ご教示頂けませんでしょうか。 本当に困っているので宜しくお願いします。 ※ちなみにIEのバージョンは１１です。 Dim st As String Dim objIE As Object Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://k2k.sagawa-exp.co.jp/p/sagawa/web/okurijoinput.jsp" Do While objIE.Busy = True Or objIE.readyState <> 4 DoEvents Loop objIE.document.forms(0).Item("main:no1").Value = Cells(1, 1) objIE.document.forms(0).Item("main:toiStart").Click Do While objIE.Busy = True Or objIE.readyState <> 4 DoEvents Loop Do DoEvents Loop Until (TypeName(objIE.document.getElementsByClassName("state2")(0)) <> "Nothing") st = objIE.document.getElementsByClassName("state2")(0).innerText MsgBox st objIE.Quit Set objIE = Nothing MsgBox "完了" |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
