vba テーブルの取得の仕方

Question

excel vbaで、数百のページから自動でtableを取得してセルに値を入れるプログラムを作成しようとしているのですが、どのようにすればよいか思い浮かびません。

追記：

mts10806様

取得するサイトは他者様のサイトになります。もちろん許可はとってあります。

TanakaHiroaki

以前一度参考にさせていただいたサイトでしたが、もう一度一通り見てきました。

・1つのページ内に複数のテーブルがある。
・tableにはid属性は無し
・ページによってあるテーブルないテーブルがある。

以上の条件で（条件は現段階ではあまり関係ないですが）、まずは2つ目のテーブルを取得して一つ目のtrの値を表示してみようとしたのですが、「For Each el In colTable.Item(1)」の部分でエラーがでます。itemを省略して、「「For Each el In colTable(1)」」でもダメでした。colTableの中に全てのテーブルが入っており、itemで指定できそうだったので公式サイトを参考に記述してみたのですが、構文がおかしいでしょうか？
エラー内容は、「実行時エラー'438'：オブジェクトは、このプロパティまたはメソッドをサポートしていません。」です。

追記2：
落ち着いて考えてみたら、下記コードの場合、「el」には一つずつtable要素が入っていくことになりますよね。
ということは、(1)などと指定しなくてもよく、後はそれぞれのtableに対しての処理を書いていけばよさそうですね。

Dim colTable, colTr As IHTMLElementCollection 'IHTMLエレメントコレクションを準備
Set colTable = htmlDoc.getElementsByTagName("table") 'HTMLドキュメント内のtable要素をコレクションとしてGet

Dim el As IHTMLElement
For Each el In colTable.Item(1)
    Set colTr = el.getElementsByTagName("tr")
    Debug.Print colTr(0).innerText
Next el

Comments

[m.ts10806]

そもそもですがVBAからHTMLを取得するようには作られているのでしょうか？そこができているならあとはタグで辿っていくだけのように思いますが。（調べて出てこない内容ではないはずなのでまずご自身でやってみてください）

[TanakaHiroaki]

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

Answer 1

ヤフーの東京の天気ページを開いて全テーブルの全セルをdebug.printするサンプルコードを書きました。
参考にどうぞ。

必要なテーブルや行の判定を行うことを鑑みネストしていますが、
不要であれば objIE.document.GetElementsByTagName("td") だけ回せばOKです。

    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True
    objIE.Navigate "https://weather.yahoo.co.jp/weather/jp/13/4410.html"
    
    Do While objIE.Busy = True Or objIE.ReadyState <> 4
        DoEvents
    Loop
    
    For Each dom_table In objIE.document.GetElementsByTagName("table")
        For Each dom_tr In dom_table.GetElementsByTagName("tr")
            For Each dom_td In dom_tr.GetElementsByTagName("td")
                Debug.Print dom_td.innerText
            Next dom_td
        Next dom_tr
    Next dom_table
    objIE.Quit