VBAでIEのラジオボタンを選択

さて、ここまで値の自動入力について解説してきましたが、ここからはラジオボタン・チェックボックス・セレクトボックスを自動選択する方法について紹介していきます。
まずは、ラジオボタンの自動選択になります。

フォームラジオボタンの自動選択マクロ１

Sub sample()

  Dim objIE  As InternetExplorer

  'InternetExplorerでテスト用フォームページを起動
  Call ieView(objIE, "http://www.vba-ie.net/code/test.html")

　'ラジオボタンを選択
　objIE.document.getElementsByName("sex")(1).Checked = True

End Sub

テスト用フォームページのソース

※必要な項目のみ抽出しています。

実行結果

こちらも「GetElementsByNameメソッド」を利用した選択方法です。
name名に「sex」という名前のエレメントを取得し「Checkedプロパティ」で選択しています。
Trueで選択していますが、選択を外す場合はFalseで対応します。

今回は、男と女の2つの項目ですので、添え字0は男、添え字1は女となります。
次にもう1つ紹介すると、クリック処理でも選択することが可能です。

フォームラジオボタンの自動選択マクロ２

Sub sample()

  Dim objIE  As InternetExplorer

  'InternetExplorerで本サイトを起動
  Call ieView(objIE, "http://www.vba-ie.net/code/test.html")

　'ラジオボタンをクリック
　objIE.document.getElementsByName("sex")(1).Click

End Sub

こちらでも選択と同じ結果で「女」がクリックされた状態になります。

フォームラジオボタンの自動選択マクロ３

Sub sample()

  Dim objIE  As InternetExplorer

  'InternetExplorerでテスト用フォームページを起動
  Call ieView(objIE, "http://www.vba-ie.net/code/test.html")

　'ラジオボタンを選択
　objIE.document.forms("form1").sex(1).Checked = True

End Sub

フォームラジオボタンの自動選択マクロ４

Sub sample()

  Dim objIE  As InternetExplorer

  'InternetExplorerで本サイトを起動
  Call ieView(objIE, "http://www.vba-ie.net/code/test.html")

　'ラジオボタンを選択
　objIE.document.forms("form1").sex(1).Click

End Sub

フォームを取得してからの選択も同様の結果になります。
処理内容は基本操作と変わりませんので簡単ですね。

次の「チェックボックスを選択」の制御方法について解説していきます。