Excel VBAのIE操作でinnertextの変数代入においてobjtag.innertext.valueのようなものの代わりのやり方を知りたい。

Question

for eachでtd idを取得してそれぞれ取得するところまでできたのですが、取得したループごとに変わる一時的な値をifの外で使うために、innertextを文字として変数に代入したいです。

下記のコードは間違っていますがイメージを伝えるためにあえて書きます。

HTMLの一部は下記のような感じです。

<td id="ABC">12345</td>
<td id="ABC">54321</td>
<td id="ABC">13579</td>
<td id="ABC">02468</td>

Dim ExampleID as long

For Each objtag In objIE.document.getElementsByTagName("td")
if instr(objtag.outerHTML, "ABC") then
ExampleID = objtag.innertext
end if

debug.print ExampleID

Next

今回の場合if文の外で使いたい変数に入る値は1回目のループは"12345" 2回目"54321"となります。
この場合変数"ExampleID"をif文の外に書いたら当然、全体のobjtag.innertextを取得してしまいます。
そこで、下記のようにしてみました。

Dim ExampleID as long

For Each objtag In objIE.document.getElementsByTagName("td")
if instr(objtag.outerHTML, "ABC") then
ExampleID = objtag.innertext.value
end if

debug.print ExampleID

next

.valueをつけてみると、使用不可なようでエラーがでました。
うまく説明できているかわからないですが不明点あれば都度追記させていただきます。
無知すぎてとても初歩的な事に気づいていないだけなのに、みなさまのお知恵をお借りすることになって申し訳ないのですがお答えいただけると幸いです。。。

追記:
td id重複の件ですが<table id="Area">内のtbody→tr→tdです。
コードを一部変えて下記に模写します。

<tr>
<td ~~~ id="Number">"取得したいinnertext1"</td>
<td ~~~ id="Name">"取得したいinnertext2"</td>
<td ~~~ id="address">"取得したいinnertext3"</td>
</tr>

<tr>
<td ~~~ id="Number">"取得したいinnertext4"</td>
<td ~~~ id="Name">"取得したいinnertext5"</td>
<td ~~~ id="address">"取得したいinnertext6"</td>
</tr>

上記のコードはダブルクォーテーション内以外そのままのものを書きました。
謎の～～～があって困ってます。
よければそれについても教えて頂きたいです。
それでは本題に戻りますと、
"取得したいinnertext"をfor eachでループごとに抜いていくのですが、

<td ~~~ id="address">のinnertext3が例えば"東京"だった場合に
<td ~~~ id="Number">内の"取得したいinnertext1"を含めそれ以降の<td ~~~ id="Number">の
innertextも取得しようとしています。
おそらく、すでにinnertext3まで処理が進んでしまっているためか、うまく動かず、
1に戻って取得するにはなにか工夫が必要だと思い、今回はそれぞれnumber,name,addressを
都度、変数に入れておいて、
innertext3が"東京"だった場合に呼び出そうと考えました。

現状だとinnertext3が"東京"だった場合にそれ以降の<td ~~~ id="Number">のinnertext4からの
取得になってしまいます。

わかりにくい質問で申し訳ないです。

Comments

[hatena19]

前回の質問のときもコメントに書いたのですが、HTML内ではidの重複はNGです。本当に同じIDが複数存在するのですか。実際はidではなくてclassではないですか。classならGetElementsByClassNameで簡単に目的のデータを取得できます。

Answer 1

質問内容に矛盾があるので、勝手に解釈して、とりあえずの回答を出しておきます。

まず、idのデータが重複するということはHTMLの規則に反するので、実際はclassだとします。classなら重複は許されます。

<table>
  <tr>
    <td class="ABC">12345</td>
    <td class="ABC">54321</td>
    <td class="ABC">13579</td>
    <td class="ABC">02468</td>
  </tr>
</table>

このHTMLからclassが"ABC"の要素のなかのテキストをループで順に取り出したい。
とりあえずDebug.Printでイミディエイトウィンドウに下記のように出力します。

12345
54321
13579
02468

下記のコードで上記の出力になります。

Dim ExampleID as String
Dim objClass AS Object
For Each objClass In objIE.document.getElementsByClassName("ABC")
    ExampleID = objClass.innerTExt
    debug.print ExampleID
Next

もし、class="ABC" がテーブル以外の要素にもついていて、テーブル内の要素（td）のみに限定したいなら、

Dim ExampleID as String
Dim objtag AS Object
Dim objClass As Object
For Each objtag In objIE.document.getElementsByTagName("tr")
    For Each objClass In objTag
        ExampleID = objClass.innerTExt
        debug.print ExampleID
    Next
Next

Comments

[sneko]

少し追記させていただきました。

[hatena19]

追記のHTMLを見ましたが、やはりidの値に重複がありますね。
もう一度確認しますが、本当にidなんですか。
だとしたら、そのホームページはだれが作成したものですか。
実際にあるWEB上にあるだれかが公開してるホームページですか。
もし、可能ならそのURLを提示してもらえますか。
不正確の情報で回答を書いても、結局時間の無駄遣いになりますので。
（既にかなりの時間を無駄にしています。）