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

	'定番
	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