Help us understand the problem. What is going on with this article?

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

nezuq
テクノロジー信者。学習中。
https://www.slideshare.net/nezuQ/presentations
Why not register and get more from Qiita?
  1. We will deliver articles that match you
    By following users and tags, you can catch up information on technical fields that you are interested in as a whole
  2. you can read useful information later efficiently
    By "stocking" the articles you like, you can search right away
Comments
No comments
Sign up for free and join this conversation.
If you already have a Qiita account
Why do not you register as a user and use Qiita more conveniently?
You need to log in to use this function. Qiita can be used more conveniently after logging in.
You seem to be reading articles frequently this month. Qiita can be used more conveniently after logging in.
  1. We will deliver articles that match you
    By following users and tags, you can catch up information on technical fields that you are interested in as a whole
  2. you can read useful information later efficiently
    By "stocking" the articles you like, you can search right away
ユーザーは見つかりませんでした