VBAのIE制御

前回は「ラジオボタンを選択」でラジオボタンの自動選択について解説しましたが、チェックボックスでも同様の処理になります。

フォームチェックボックスの自動選択マクロ１

Sub sample()

  Dim objIE  As InternetExplorer
  Dim objDoc As HTMLDocument

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

  'チェックボックスを選択
  objDoc.getElementsByName("lcolor")(0).Checked = True
  objDoc.getElementsByName("lcolor")(2).Checked = True

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

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

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

実行結果

name名に「lcolor」という名前のエレメントを取得し、「Checkedプロパティ」で選択しています。
チェックボックスは複数チェックすることができますので、今回は添え字0赤と添え字2黄にチェックを付ける処理をしています。

フォームチェックボックスの自動選択マクロ２

Sub sample()

  Dim objIE  As InternetExplorer

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

　'チェックボックスをクリック
　objIE.document.getElementsByName("lcolor")(0).Click
　objIE.document.getElementsByName("lcolor")(2).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").lcolor(0).Checked = True
　objIE.document.forms("form1").lcolor(2).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").lcolor(0).Click
  objIE.document.forms("form1").lcolor(2).Click

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

フォームを取得してからの選択も同様の結果になります。
1つ注意しなければならないのは、「Checkedプロパティ」と「Clickメソッド」では処理が異なるという点です。
「Checkedプロパティ」でTrueを指定している場合は何度やってもチェックが付いた状態ですが、「Clickメソッド」で処理する場合はチェック・チェック解除を繰り返しクリックしていくため必ずしもチェックが付くというわけではありません。

ですので、例えば「メールを受信する」というチェックボックスを外したい場合は、「Checkedプロパティ」でFalseを選択するか、「Clickメソッド」でチェックを外す処理を行います。
作業する場合は、サイトの状況を確認して判断してください。

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