e-learningサイトの操作 削除
Message#3 2015年2月7日(土)16時18分 From: icycyi |
Aのコードを書き換えてみました。 下記の様に組んだのですが、Do While Loopの中で回り続けてしまいます。 ボタンを押したつもりではなく、ボタンが見つけられない状況でした。 中断した際、IEのウィンドウ内に指定のボタンは存在していて、中断から再度走らせても、やはりDo While Loopから抜けだせません。 中断している時の「objInput」の中身は、"[object HTMLInputElement]"となっています。 再度ページをVBAに読み込ませるみたいなことで解決できるのではないかと思うのですが、VBAをかじった程度の知識なので、やり方がわかりません。ご教授お願いします。 ご協力宜しくお願いします。 Public Function IEButtonClick(ByRef objIE As Object, buttonValue As String) Dim objInput As Object Dim b_ch As Boolean 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 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。