Selenium「Web上のテーブル要素(表)からデータを抜き出す」【Edge/Chrome】

テーブル要素から データを抜き出したい

Excel VBAでEdge/Chromeを操作する際、Web上の表(テーブル要素)からデータを抜き出す処理も多いです。

テーブル要素から データを抜き出すサンプルコード

トヨタ自動車株式会社(証券コード7203)の時系列の株価を取得します。
サンプルでは時系列の一部しか取得しません。
aタグの次へボタンを押すことで、さらに過去のデータも取得可能です。

Public Sub sample()
    '■chrome かEdgeどちらかを選択。
    driver.Start "chrome"
'   driver.Start "edge"
 
    '■トヨタの株価にアクセス
    driver.Get "https://info.finance.yahoo.co.jp/history/?code=7203.T"
    
    Dim i As Long: i = 1
    Dim j As Long: j = 1
    
    '■テーブルデータを取得 trタグを取得
    For Each tr In driver.FindElementsByTag("tr")
        '■■thタグを取得(タイトル行)
        For Each th In tr.FindElementsByTag("th")
            Cells(i, j) = th.Attribute("innerText")
            j = j + 1
        Next th
        '■■tdタグを取得(データ行)
        For Each td In tr.FindElementsByTag("td")
            Cells(i, j) = td.Attribute("innerText")
            j = j + 1
        Next td
        '■■列(j)をリセットし、行(i)を+1する
        i = i + 1
        j = 1
    Next tr
End Sub

注意点

• IE自動操作の場合は、上記の記載方法はなじみがありますが、SeleniumBasicには専用のメソッド(.AsTable)が用意されています。
• 今回の記事より、専用のメソッド(.AsTable)の方が簡単に取得できます。
• テーブルタグ( tr th td )はHTMLを少し理解する必要があります。