Edge/Chromeでラジオボタンの状態を取得【Selenium】【ExcelVBA】

VBAでEdge/Chromeを起動し、Webページ内のラジオボタンの状態を取得する方法です。
要素を指定し、Attributeで取得するだけです。

ラジオボタンを選択・解除するサンプルコード
注意点
SeleniumBasicについて

ラジオボタンを選択・解除するサンプルコード

当方の問い合わせページにラジオボタンがある為、そちらをサンプルとして記載します。

Dim driver As New Selenium.WebDriver

'■Edge/Chromeでラジオボタンの状態を取得する。
Public Sub sample()
    '■ブラウザを起動
    driver.Start "chrome" 'Edgeの場合はdriver.start "edge"
    driver.Get "https://vba-create.jp/contact/"
   
    '■ページ内ラジオボタンの状態を取得
    driver.FindElementsByName("radio-type")(1).Click 'メール希望がTrue →checked="checked"の状態のため
    driver.FindElementsByName("radio-type")(2).Click '電話希望  が""   →checkedが存在しないため
    driver.FindElementsByName("radio-type")(3).Click '打合せ希望が"" 　→checkedが存在しないため
 
    '■要素を連続して状態取得して比較する場合は以下。
    Dim el As WebElement
    For Each el In driver.FindElementsByName("radio-type")
        Debug.Print el.Attribute("checked")
    Next
End Sub

'■HTMLサンプル(name="radio-type"があり、name要素が存在)
<span class="wpcf7-form-control wpcf7-radio">
	<span class="wpcf7-list-item first">
		<input type="radio" name="radio-type" value="メール希望" checked="checked">
			<span class="wpcf7-list-item-label">メール希望</span>
		</span>
	<span class="wpcf7-list-item">
		<input type="radio" name="radio-type" value="電話希望">
			<span class="wpcf7-list-item-label">電話希望</span>
		</span>
	<span class="wpcf7-list-item last">
		<input type="radio" name="radio-type" value="打合せ希望">
			<span class="wpcf7-list-item-label">打合せ希望</span>
		</span>
	</span>
</span>