Edited at

IE自動操作コード一覧(ExcelVBA / VBScript)

More than 5 years have passed since last update.


前提条件


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ステートメント]


VBScript

・IEへのキー入力をVBScriptで再現する。 - Qiita