e-learningサイトの操作 削除
Message#10 2015年2月10日(火)13時17分 From: icycyi |
なお必要と思われるVBAコードです。返り値がなくともFunctionをつかってるのは気にしないで下さい。 <略> objIE.navigate "一つ目のボタンがあるページ" Call IEwait(objIE) ’一つ目のボタン Call IEButtonClick(objIE, "一つ目のボタン") Call IEwait(objIE) Call IEButtonClick(objIE, "二つ目のボタン") Call IEwait(objIE) r_name = objIE.Document.getElementById("id_name").Value <略> 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 Exit Function End If Next Loop End Function Function IEwait(ByRef objIE As Object) Do While objIE.ReadyState <> 4 DoEvents Loop End Function |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。