VBAでEdge/Chromeを起動し、Webページ内のチェックボックスの選択・解除する方法です。
要素を指定し、クリック処理を入れるだけです。
チェックボックスを選択・解除するサンプルコード
Dim driver As New Selenium.WebDriver
Public Sub sample()
'■ブラウザを起動
driver.Start "chrome" 'Edgeの場合はdriver.start "edge" +下記のJSPathも変更必要
driver.Get "https://vba-create.jp/kyoteivba-contact/"
'■ページ内チェックボックス「上記、事前設定は終えてますか?」は
' name="checkbox-672[]"の1番目 Trueがチェック入った状態
driver.FindElementsByName("checkbox-672[]")(1).Click 'True
driver.FindElementsByName("checkbox-672[]")(1).Click 'false
End Sub
'■HTMLサンプル(name="checkbox-672[]"があり、name要素が存在) <input type="checkbox" name="checkbox-672[]" value="上記、事前設定は終えてますか?">
SeleniumBasicについて
Internet Explorer11 のサポート期限が2022年6月までと、スクレイピング自体入れ替えていく必要があります。
今一番スムーズなのはSeleniumBasicを使用したスクレイピングと考えます。
但し、VBAでのネット記事は少なく困っている方も多いと思います。
弊社で代行開発も可能ですので、お気軽にご用命ください。



コメント