【Excelマクロ(VBa)】IEの操作(チェックボックス)

IE起動~終了までは述べたので、起動後のIEの操作をExcelマクロ(VBa)で行います。尚、コーディングするにあたっては、多少htmlの知識が必要です。(読めないと記述できません)

操作するページは引き続きYahooの乗換案内です。(サンプルソース)


   チェックボックス


Yahoo乗換案内のチェックボックスは手段の欄に【空路】【新幹線】【有料特急】【高速バス】【路線/連絡バス】【フェリー】があります。



それぞれのソースコードは下記の通りで、注目はid=~です。タグにidが設定されている場合は、getElementById("~") を使う事で操作できます。

そして、チェックボックスにチェックを入れる場合は、
objIE.document.getElementById(idの値).Checked = True
チェックを外す場合は、
objIE.document.getElementById(idの値).Checked = False
で操作します。

【空路】
  <乗換案内html>
<input type="checkbox" name="al" id="air" value="1" checked><label for="air">空路</label>

  <Excelマクロ(VBa)>
  ▽チェックを入れる場合(True)
objIE.document.getElementById("air").Checked = True

  ▽チェックを外す場合(False)
objIE.document.getElementById("air").Checked = False

【新幹線】
  <乗換案内html>
<input type="checkbox" name="shin" id="sexp" value="1" checked><label for="sexp">新幹線</label>

  <Excelマクロ(VBa)>
  ▽チェックを入れる場合(True)
objIE.document.getElementById("sexp").Checked = True

  ▽チェックを外す場合(False)
objIE.document.getElementById("sexp").Checked = False

【有料特急】
  <乗換案内html>
<input type="checkbox" name="ex" id="exp" value="1" checked><label for="exp">有料特急</label>

  <Excelマクロ(VBa)>
  ▽チェックを入れる場合(True)
objIE.document.getElementById("exp").Checked = True

  ▽チェックを外す場合(False)
objIE.document.getElementById("exp").Checked = False

【高速バス】
  <乗換案内html>
<input type="checkbox" name="hb" id="hbus" value="1" checked><label for="hbus">高速バス</label>

  <Excelマクロ(VBa)>
  ▽チェックを入れる場合(True)
objIE.document.getElementById("hbus").Checked = True

  ▽チェックを外す場合(False)
objIE.document.getElementById("hbus").Checked = False

【路線/連絡バス】
  <乗換案内html>
<input type="checkbox" name="lb" id="bus" value="1" checked><label for="bus">路線/連絡バス</label>

  <Excelマクロ(VBa)>
  ▽チェックを入れる場合(True)
objIE.document.getElementById("bus").Checked = True

  ▽チェックを外す場合(False)
objIE.document.getElementById("bus").Checked = False

【フェリー】
  <乗換案内html>
<input type="checkbox" name="sr" id="fer" value="1" checked><label for="fer">フェリー</label>

  <Excelマクロ(VBa)>
  ▽チェックを入れる場合(True)
objIE.document.getElementById("fer").Checked = True

  ▽チェックを外す場合(False)
objIE.document.getElementById("air").Checked = False

管理人 について

趣味:映画鑑賞・音楽鑑賞・ゲーム・旅行 仕事:会社員(IT関連)
カテゴリー: VBa(Excelマクロ), システム開発 パーマリンク

コメントを残す