IE自動操作コード一覧（ExcelVBA / VBScript）

6892 ワード
VBA ExcelVBA IE VBScript IE テキストリンク

前提条件

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

7.17知識のまとめ
IE 6はmin-heightの解決策をサポートしていない