2022年、Internet Explorerのサポート終了→SeleniumBasicに置き換えた開発を進めましたが、
SeleniumBasicのインストールが厳しい環境のユーザー様も多く存在しました。
その為、自前でWebDriverを動かす「WebDriverVBA」の開発を進めました。
ある程度動くよう(SeleniumBasicに比べたらまだまだですが)になったため、
同じようにお困りのユーザーの方に、ソフトライセンス販売の形で提供致します。
WebDriverVBAを使用した際のサンプルコードを以下に記載します。
Edge/Chromeでボタンをクリックする
Excel VBAマクロでEdge/Chromeを自動操作する際のクリック処理です。
クリックの基本です。
'■CssSelector要素をクリック
Call driver.Click("★★★", vcCssSelector)
CssSelector要素をクリックするサンプル(yahoo)
CssSelectorはXPathと基本的には同じです。参考（XPath要素ををクリックする）
idが存在しない要素もクリックすることが可能です。
'■yahooのhtmlコード(検索ボタン) CssSelector #ContentWrapper > header > section._1o9PYyvuVafb5hd9eJ9rYX > div > form > fieldset > span > button
yahoo検索ボタンはidは存在しませんが、CssSelectorで指定可能です。
'■CssSelector要素をクリック
Call driver.Click("#ContentWrapper > header > section._1o9PYyvuVafb5hd9eJ9rYX > div > form > fieldset > span > button", vcCssSelector)
'■もちろんCssSelectorを変数に入れてもOK
Dim SearchBtn as String
SearchBtn = "#ContentWrapper > header > section._1o9PYyvuVafb5hd9eJ9rYX > div > form > fieldset > span > button"
Call driver.Click(SearchBtn, vcCssSelector)
CssSelectorはどうやって取得する？
①Chrome→ Ctrl + Shift + I
②矢印マーク→指定したい要素をクリック。
③画面右側の開発ツールの該当要素を右クリック→Copy → copy selector
- WebDriverVBAまとめページ(ページが増えれば公開します。)
WebDriverVBAについて
Excel VBAでSeleniumBasicを使わずにEdge/Chromeでスクレイピングするためのツールです。
SeleniumBasicがインストールできない環境の方にもスクレイピングをお助けします。
料金などについてはこちらからお問い合わせくださいませ。
コメント