削除

タブのクリックの方法について削除

Message#8 2015年3月28日(土)18時51分
From: ぴぃスケ

最後の「１分」をクリックすれば良さそうですね。

土日は動作確認できないので、週明けに確認してみますね。

VBAマスターのメッセージ(#7)への返事

> > spanというものに対して「１分」というのを検索して一致したらクリックという感じのソースコードに見えますが、この中に「１分」は複数回出現しているという認識でいたので、どの「１分」をクリックするのかな？と思っていました。
> > 生成されたHTMLだと１個だったのでしょうか？？
>
> よく見てなかったですが、たしかに2つありますね。
>
> 最後のやつが表示されている「1分」のやつっぽいので「Exit For」を削除すれば最後の「1分」がクリックされます。
>
> Sub test()
>
> Dim objIE As InternetExplorer
>
> Call ieView(objIE, "http://jp.demo.highlow.net/Account/QuickDemoLogin?language=ja-JP")
>
> objIE.document.getElementById("FixedPayoutHLOOD").Click 'クリック
>
> Call ieCheck(objIE)
>
> 'span要素を全て抽出
> For i = 0 To objIE.document.getElementsByTagName("span").length - 1
>
> If objIE.document.getElementsByTagName("span")(i).innerText = "1 分" Then
>
> objIE.document.getElementsByTagName("span")(i).Click
>
> Call ieCheck(objIE)
>
> 'ループ解除削除
> 'Exit For
>
> End If
>
> Next i
>
> End Sub
>
> ただし、参考URL自体が現在データがない状態で表示されているので、正常に表示されるかは確認できませんでした。
>
> とりあえず表示上は「1分」が黄色背景で選択されているように見えますが。

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