IE操作

ツール-参照設定でMicrosoft Internet Controls とMicrosoft HTML Object Libraryを参照にすること

Dim ie As InternetExplorer
Sub ie_test()
  Dim doc As HTMLDocument
  Dim coll As IHTMLElementCollection
  Debug.Print "----"
  
  IE_Open ("http://xxxxx")
  IE_Wait
  Set doc = ie.Document
  'タイトルを表示してみる
  Debug.Print doc.Title
  'aタグの一覧を表示してみる
  Set coll = doc.getElementsByTagName("a")
  Dim el As HTMLInputElement 'セレクタなら HTMLSelectElement
  For Each el In coll
    Debug.Print el.innerText
  Next
  '特定入力ボックスに入力してみる
  doc.getElementsByName("chat")(0).Value = "Input Text"
  'ボタンをクリックする
  doc.getElementsByTagName("input")(0).form. submit
  MsgBox "OK"
  IE_Close
End Sub
Sub IE_Open(url)
  Set ie = New InternetExplorer
  ie.Navigate url
  ie.Visible = True
End Sub
Sub IE_Close()
 If Not ie Is Nothing Then ie.Quit
 Set ie = Nothing
End Sub
Sub IE_Wait()
  Do While ie.Busy = True Or ie.ReadyState < READYSTATE_COMPLETE
    DoEvents
  Loop
End Sub
-