Selenium「CSSセレクタを使用してEdge/Chromeを操作する(複数データ取得)」【エクセルマクロ】

ExcelVBAではid、Class、Nameなどさまざまな要素を取得してSeleniumの自動制御が可能ですが、
CSSセレクタを使用しても自動制御可能です。

CSSセレクタを使用してEdge/Chromeを自動操作

みんなの株式（みんかぶ）の日経平均/TOPIX/NYダウを例にしています。

Dim driver As New Selenium.WebDriver
Public Sub sample()

    '■ブラウザを起動
    driver.Start "chrome" 'Edgeの場合はdriver.start "edge"
    driver.Get "https://minkabu.jp/"
     
    
    Dim td As Variant
    '■CSSセレクタを指定してデータを取得
    For Each td In driver.FindElementsByCss("#layout > div:nth-child(4) > div.top-chart > div > div > table > tbody > tr > td")
        Debug.Print td.Text
    Next td
    
    '■下記のようなデータを取得します
    '日経平均(10:30)
    '28,518.14
    '-233.48(-0.81%)
    'TOPIX(10:30)
    '1,963.76
    '-21.22(-1.07%)
    'NYダウ (11 / 27)
    '34,899.34
    '-905.04(-2.53%)
    '上海総合(10:31)
    '3,534.63
    '-29.44(-0.83%)
    '米ドル/円(10:52)
    '113.57
    '+0.05(+0.04%)
    'WTI原油(10:00)
    '68.15
    '-10.24(-13.06%)
    'ビットコイン/円(10:52)
    '6,550,005
    '+390,004(+6.33%)
End Sub

注意点

• CSSセレクタは、HTMLの要素を特定するためのパス情報です。
  ＝仕様変更があるとVBAのコードが使えなくなる恐れがあります。
• 複数データを一括で取得する場合は単一の要素は上記で可能ですが、
  IDなど単一要素で良い場合はこちらを参照。

CSSセレクタはどうやって取得する？

①Chrome→ Ctrl + Shift + I

②矢印マーク→指定したい要素をクリック。

③画面右側の開発ツールの該当要素を右クリック→Copy → copy selecter

SeleniumBasicについて

Internet Explorer11 のサポート期限が2022年6月までと、スクレイピング自体入れ替えていく必要があります。
今一番スムーズなのはSeleniumBasicを使用したスクレイピングと考えます。

但し、VBAでのネット記事は少なく困っている方も多いと思います。
弊社で代行開発も可能ですので、お気軽にご用命ください。