ライブラリ参照設定
ツール > 参照設定 > Microsoft Internet Controls > OK
ツール > 参照設定 > Microsoft HTML Object Library > OK
IE オブジェクトの取得
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.Application")
指定した Web ページを開く
objIE.Visible = True
objIE.Navigate 開きたいページの URL
Web ページ読込み完了まで待機する
Do While objIE.Busy Or objIE.ReadyState < READYSTATE_COMPLETE
DoEvents
Loop
DOM の取得
Dim objDocument as HTMLDocument
set objDocument = objIE.Document
objDocument.getElementsByTagName(タグ名)(インデックス).innerText
起動中の IE ウィンドウを判別する
Dim objShell as Object, objWindow As Object
Set objShell = CreateObject("Shell.Application")
For Each objWindow In objShell.Windows
If TypeName(objWindow.document) = "HTMLDocument" Then
Set objIE = objWindow
Exit For
End if
Next