VBA IE操作 - td要素のinnertextを取得したい。

下記のようなHTMLから、■の位置にあるinnertextに基づいて、●のinnertext「りんご」や「バナナ」を取得したいです。

パラメータXが■のinnertextと合致する場合に、
■のあるtd内の2番目のtr要素のinnertextを取得できるコードを
お教えいただきたく。

idも付与されておらず、
しかもtrのclass名も全て一緒なので、
取得方法がわからず悩んでいます・・・

<tbody>
 <tr class = "A">
  <td class = "A-1" nowrap="...">
   <b>Apple</b>　■
  </td>
  <td style = "...">
   <span>りんご</span>　●
  </td>
 </tr>
 <tr class = "A">
  <td class = "A-1" nowrap="...">
   <b>Banana</b>　■
  </td>
  <td style = "...">
   <span>バナナ</span>　●
  </td>
 </tr>
・
・
・
</tbody>

TanakaHiroaki

2020/06/17 08:19

getElementsByTagNameを使ってテーブル内のデータを取得する方法を参考にしてください。 https://tonari-it.com/vba-ie-get-table/

tosi

2020/06/18 01:04 編集

https://teratail.com/questions/266778 こちらが参考になると思います。

行動規範の内容に同意します

回答2件

ベストアンサー

tr にクラス名 A が付与されているのでそれを使えば簡単にできそうです。

getElementsByClassName("A") でAクラスのtr要素のコレクションを取得して、それをFor Each で回す。
その各tr要素のtd要素を getElementsByTagName("td")でコレクションとして取得する。
最初のtd要素とパラメータを比較して、一致すれば2番目のtd要素のinnerTextを返す。

コードのイメージとしては下記のような感じでしょうか。

vba
1Dim X As String
2X = "Apple"
3
4Dim A As Object, tds As Object
5For Each A In objIE.Document.getElementsByClassName("A")
6    set tds = A.getElementsByTagName("td")
7    If tds(0).innerText = X Then
8        Msgbox tds(1).innerText
9        Exit For
10    End If
11Next

投稿2020/06/18 05:58

編集2020/06/18 06:01

hatena19

総合スコア33790

koyamashinji

2020/06/18 09:07

具体的なコードを示していただき、大変助かりました。貴殿ご提示のコードで、動作OKとなりました。下名のようなど素人の質問にも丁寧に回答いただき感謝いたします。

行動規範の内容に同意します

コードではありませんが、考え方を書いてみました。
（一応、ご提示のHTMLのパターンのみで判断しています。）
いかがでしょうか？
(1)getElementsByTagName("tr")やgetElementsByClassName("A")を使い、対象の tr タグを絞り込む。
(2)英名・和名の変数を2つ用意し、値は空にしておく。
(3)上記trタグ内のtdタグコレクションをgetElementsByTagName("td")で取得し、ループで各内容を調べる。
もし、tdタグのClass名が"A-1"である場合には、tdタグのInnerTextを英名の変数に入れる。
また、tdタグのgetElementsByTagName("span").Count = 1の場合には、tdタグのInnerTextを和名の変数に入れる。
（各変数内には余計なスペースや改行が入っている場合があるので、これらは取り除く）
(4)上記(3)のループ評価が終わったら、英名の変数の内容を調べ、もし指定の内容だったら和名の変数の中身が答えとなる。