前提条件
ExcelVBA
参照設定をする。
* Microsoft HTML Object Library
* Microsoft Internet Controls
VBScript
特になし。
コード
IEを開く
InternetExplorerを開く。
ExcelVBA
Dim ie As New InternetExplorer
ie.Visible = True
VBScript
Dim ie
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
IEを閉じる
InternetExplorerを閉じる。
ExcelVBA / VBScript
ie.Quit
Set ie = Nothing
待機する
プログラムを「%0」秒待機する。
ExcelVBA
Dim ymdTo As Date
ymdTo = DateAdd("s", %0, Now)
While Now < ymdTo
DoEvents
Wend
VBScript
WScript.Sleep(%0 * 1000)
IEを最大表示する
InternetExplorerを最大表示にする。
ExcelVBA / VBScript
ie.FullScreen = True
遷移する
URL「%0」のWebページを開く。
ExcelVBA
ie.Navigate %0
Do While ie.Busy = True Or ie.readyState <> 4
DoEvents
Loop
VBScript
ie.Navigate %0
Do While ie.Busy = True Or ie.readyState <> 4
Loop
要素を取得する（ID指定）
指定ID「%0」の要素を取得する。
ExcelVBA
Dim elm as Object
Set elm = ie.document.getElementById( %0 )
VBScript
Dim elm
Set elm = ie.document.getElementById( %0 )
要素を取得する（Name指定）
指定Name「%0」の要素群を取得する。
ExcelVBA
Dim elms As Variant
elms = ie.document.getElementsByName( %0 )
VBScript
Dim elms
elms = ie.document.getElementsByName( %0 )
要素を取得する（ClassName指定）
指定ClassName「%0」の要素群を取得する。
ExcelVBA
Dim elms As Variant
elms = ie.document.getElementsByClassName( %0 )
VBScript
Dim elms
elms = ie.document.getElementsByClassName( %0 )
要素を取得する（TagName指定）
指定TagName「%0」の要素群を取得する。
ExcelVBA
Dim elms As Variant
elms = ie.document.getElementsByTagName( %0 )
VBScript
Dim elms
elms = ie.document.getElementsByTagName( %0 )
要素にフォーカスを当てる
取得した要素にフォーカスを当てる。
ExcelVBA / VBScript
elm.Focus
要素に値を入力する
取得した要素に値を入力する。
ExcelVBA / VBScript
elm.Value = "x"
要素の候補を選択する
取得した要素の候補をインデックス「%0」で選択する
ExcelVBA / VBScript
elm.selectedIndex = %0
要素をクリックする
取得した要素をクリックする
ExcelVBA / VBScript
elm.Click
関連記事
スクリーンショットを取る
ExcelVBA
・ExcelVBAでスクリーンショットを取る方法 - Qiita
VBScript
・【WSH】VBScriptでPrintscreen・Alt+Printscreenしてみた - くんすとの備忘録
キー入力を再現する
ExcelVBA
・Office TANAKA - Excel VBAステートメント[SendKeysステートメント]