VBA: HTML操作

投稿日時: 投稿者:

久し振りにVBAでIEを制御したのでメモ。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'定番
Dim ObjIE As Object
Dim wkTEXT As String
Set ObjIE = CreateObject("InternetExplorer.application")
ObjIE.Visible = True
ObjIE.Navigate "http://xxxxxxxx"
 
'WAIT
Do While ObjIE.Busy Or ObjIE.ReadyState < READYSTATE_COMPLETE
    Debug.Print ObjIE.Busy & ":" & ObjIE.ReadyState
    DoEvents
Loop
 
'INPUT FORM & SUBMIT　ボタンなどがID化されてること
ObjIE.Document.body.all("yyyyyy").Value = wkTAG
ObjIE.Document.body.all("zzzzz").submit
 
'Other  qqqqqqqqqq配下のHTMLを取り出し
wkTEXT = ObjIE.Document.body.all("qqqqqqqqqq").Children(0).outerHTML
'Other  ページのタイトル
wkTEXT = ObjIE.Document.Title
'Other  BODY内のテキスト
wkTEXT = ObjIE.Document.Body.innerText