ここから本文です

Excel VBAで指定文字の次の行のjavascriptを実行したいのですが書き方がわかりませ...

tok********さん

2018/5/1316:18:25

Excel VBAで指定文字の次の行のjavascriptを実行したいのですが書き方がわかりません。

下記のソースから12行目のjavascriptをクリックしたのですが、aタグの”aaa”が複数あります。
1行上の"num"が”001”、”002”、”003”、”004”と異なっており、これが”002”(11行目)の次行のjavascriptを実行したいのです。

初歩的なこととは思いますが、何卒よろしくお願いいたします。

(該当のソースコード)

0001 <tr>
0002 <td class="ind">
0003 <span class="num">001</span>
0004 <span class="his"><a href="javascript:tableHistoryClick('xxxxxxxxxxxxxxx1');">aaa</a></span>
0005 <span class="pipe">&#124;</span>
0006 <span class="det"><a href="javascript:openDedamaDetail(1,'xxxxxxxxxxxxxxx1');">bbb</a></span>
0007 </td>
0008 </tr>
0009 <tr>
0010 <td class="ind">
0011 <span class="num">002</span>
0012 <span class="his"><a href="javascript:tableHistoryClick('xxxxxxxxxxxxxxx2');">aaa</a></span>
0013 <span class="pipe">&#124;</span>
0014 <span class="det"><a href="javascript:openDedamaDetail(1,'xxxxxxxxxxxxxxx2');">bbb</a></span>
0015 </td>
0016 </tr>
0017 <tr>
0018 <td class="ind">
0019 <span class="num">003</span>
0020 <span class="his"><a href="javascript:tableHistoryClick('xxxxxxxxxxxxxxx3');">aaa</a></span>
0021 <span class="pipe">&#124;</span>
0022 <span class="det"><a href="javascript:openDedamaDetail(1,'xxxxxxxxxxxxxxx3');">bbb</a></span>
0023 </td>
0024 </tr>
0025 <tr>
0026 <td class="ind">
0027 <span class="num">004</span>
0028 <span class="his"><a href="javascript:tableHistoryClick('xxxxxxxxxxxxxxx4');">aaa</a></span>
0029 <span class="pipe">&#124;</span>
0030 <span class="det"><a href="javascript:openDedamaDetail(1,'xxxxxxxxxxxxxxx4');">bbb</a></span>
0031 </td>
0032 </tr>


(確認事項)

次の記述で最初の”aaa”の正常動作は確認できています。

For Each obj In objIE.document.getElementsByTagName("a")
If obj.innerText = "aaa" Then
obj.Click
Exit For
End If
Next

(補足)
OS:Windows8.1(64) Excel2010

閲覧数:
26
回答数:
1

違反報告

ベストアンサーに選ばれた回答

sas********さん

2018/5/1320:43:52

2番目であればこんな感じでどうですか?
cntでループの数を数えてcnt=2だったらクリック。

cnt = 0
For Each obj In objIE.document.getElementsByTagName("a")
If obj.innerText = "aaa" Then
cnt = cnt + 1
If cnt = 2 Then
obj.Click
Exit For
End If
End If
Next

  • 質問者

    tok********さん

    2018/5/1322:10:08

    できましたー\(^o^)/
    ありがとうございます。

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2018/5/13 22:11:19

できましたー\(^o^)/
ありがとうございました。

あわせて知りたい

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる