e-learningサイトの操作 削除
| Message#9 2015年2月10日(火)13時07分 From: icycyi |
| VBAマスターさん、返信ありがとうございました。 フレームはないので、JavaScriptが原因かと思われます。 返信頂いたところから色々と試してみました。 Dのコードを以下の様にしました。 Public Function IEButtonClick(ByRef objIE As Object, buttonValue As String) Dim objInput As Object kiroku2 = objIE.Document.all(0).innerHTML If InStr(1, kiroku2, buttonValue) > 0 Then Sheets("sheet2").Cells(l, 1) = "O" Sheets("sheet2").Cells(l, 2) = objIE.LocationURL Sheets("sheet2").Cells(l, 3) = objIE.Document.URL Else Sheets("sheet2").Cells(l, 1) = "X" Sheets("sheet2").Cells(l, 2) = objIE.LocationURL Sheets("sheet2").Cells(l, 3) = objIE.Document.URL End If l = l + 1 b_ch = False Do While b_ch = False For Each objInput In objIE.Document.getElementsByTagName("INPUT") If objInput.Value = buttonValue Then objInput.Click b_ch=True Exit Function End If Next Loop End Function HTMLソースの中に、処理対象があるかどうか、またその際のページのURLも書き出すようにしました。 結果は一回目のボタンの方は、当然ですが対象はあり、URLはこちらの思っている通りでした。二回目のボタンの方は、対象はなく、またURLはボタンを押す前のものでした。 一回目のボタンをおしてから少し経てばページは変わるので、 Function 待て() Do While objIE.LocationURL <> "指定のアドレス" Call IEwait(objIE) Loop End Function と組んだのですが、IEの表示がこちらの指定のアドレスになっているのに、Loopから抜けだせませんでした。 聞きまくりな感じですが、ご教授お願いします。 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
