質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.48%

Q&A

解決済

1回答

1708閲覧

Excel VBAで指定文字の次の行のIEのリンクをクリックしたい

umetetu777

総合スコア6

0グッド

0クリップ

投稿2018/05/13 06:06

前提・実現したいこと

Excel VBAで指定文字の次の行のIEのリンクをクリックしたいのですが書き方がわかりません。

下記のソースから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">|</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">|</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">|</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">|</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

補足情報(FW/ツールのバージョンなど)

  OS:Windows8.1(64) Excel2010

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

自己解決

別サイトで回答いただき解決しました。

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

投稿2018/05/13 13:14

umetetu777

総合スコア6

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.48%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問