削除

e-learningサイトの操作削除

Message#12 2015年2月12日(木)09時43分
From: icycyi

VBAマスターさん、見捨てず返信してくださって、本当にありがとうございます。

最初はWaitメソッドを使用していたのですが、ここでのJavaScriptの作業がややこしく、サーバーの状況、リクエストの数などの関係で、5秒から3分、長い時は5分かかると、大変時間差のある作業となっています。なのでボタンを認識するのがベストと判断しました。

また以前はMsgBoxを使用して、ページの読み込みが終わってからボタンを押すという形にすれば、うまくはいってたのですが、何百件の作業となるので、ボタンを押すだけの作業なのに自動化している意味がないと感じ、何か方法はないか思案している次第です。ちなみにその時のコードは⑥です。

⑥の時は大丈夫で、⑦の時は大丈夫じゃない意味がわからないのですが・・・

取り敢えず待機処理ではなく、他の処理でなんとかしようと思うのですが、ページ内にボタンがあるかどうか判別させるようなことは、できるのでしょうか。ご返答よろしくおねがいします。

⑥
Public Function IEButtonClick(ByRef objIE As Object, buttonValue As String)
Dim objInput As Object
MsgBox　buttonValue & "OK?"
For Each objInput In objIE.document.getElementsByTagName("INPUT")
If objInput.Value = buttonValue Then
objInput.Click
Exit Function
End If
Next

⑦
Public Function IEButtonClick(ByRef objIE As Object, buttonValue As String)
Dim objInput As Object
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

上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。