idやクラスを指定していないtableを特定する方法

Question

このページのテレビが比較されているtableを特定したい

IE11
Excel2010
Windows10

やりたいこと
IEの無名のtableの特定をしてtableのテキストを取得したい。

tableはほかにもあるのでtable(0)では取得不可です。

下記のコードではどのテーブルが取得したいテーブルかがわからないため取得できる方法をご教示お願いいたします。

    Dim i As Integer
    i = 0
    For Each objTable In objIE.document.getElementsByTagName("table")
        Debug.Print objTable.Cells(i).innerText
        i = i + 1
    Next objTable

Comments

[spookybird]

エスパーじゃないので、HTMLがないとわかりません。と思ったら最初にリンクありましたね。すみませんでした。

Answer 1

widget-comparison0-swipeというidが振られたdiv要素の子要素のtableを取得すれば取得できると思います。

objIE.document.querySelector("#widget-comparison0-swipe > table")
これでどうでしょう。

Comments

[sobue]

そのままDebug.Printしようとするとコンパイルエラーなのですが・・・

[spookybird]

シングルクォート使っちゃったせいですかね...ダブルクォートにしたら問題ないですか？

[sobue]

どちらもだめでした

[spookybird]

コンパイルエラーとは具体的になんというエラーでしょうか？

[x_x]

VBAなので末尾に;はいらないでしょう

[spookybird]

あああぁぁ。修正しました。手元にVBA実行できる環境がなくて動確してないせいですね...すみません。

[sobue]

Set objTable = objIE.document.querySelector("#widget-comparison0-swipe > table")
で解決しました。

[sobue]

そのままだと、エラーになってしまうので自己解決にしてしまいました。
大変失礼いたしました。
アドバイスありがとうございます。

Answer 2

spookybirdさんの回答を受けて・・・
オブジェクトを代入するための「SET」キーワードがなかったためつけたところ解決いたしました。

 Set objTable = objIE.document.querySelector("#widget-comparison0-swipe > table")

マナーのない締め方をしてしまい、申し訳ありませんでした。

Comments

[TanakaHiroaki]

自己解決とのことですが、回答者からのアドバイスを受け、どのようなプロセスで解決にたどり着くことができたのかが明示されていません。
もう少し丁寧に表現されてはいかがでしょうか。
大変失礼なコメント申し訳けありません。

[ExcelVBAer]

自己解決じゃないですよね？　spookybirdさんのお蔭ではないですか？

[sobue]

そうですね。spookybirdさんの回答があったからたどり着けました。
そのままですと、ほかの方が解決できないと思い自己解決としてしまいました。
以後、気を付けます。

[ExcelVBAer]

そうですね。善意で成り立ってる所なので。

Answer 3

HTMLの操作には詳しくありませんが、
「div id="result" class="result"」
は利用できないのでしょうか？

resultクラスの中のテーブルという感じで。

Answer 4

簡単には、「何番目のtable」で選択します。
状況によって何番目かが変わるようなページだと駄目ですが。
あとは、ヘッダのテキストで選ぶとか。