VBAからInterneExplorerを操作する。

Excelのマクロから自動的にIE開いて必要なフォームを埋めるマクロ。
CreateObject で新しくIEを開く方法ならググればすぐに見つかるんだけど、
今開いているIEを使ってべつのページを開く方法がなかなか見つからない。
まあとりあえず結構調べてみたら一応見つかった。
なんでこんな簡単なことがすぐに出てこないんだろう?
キエーッ!

On Error Resume Next

Dim objShell as Object ' Shellオブジェクト
Dim objIE as Object ' IEオブジェクト
Dim flagIE as Boolean = False 'IEがすでに開かれているかどうか

Set objShell = CreateObject("Shell.Application")
For Each objIE In objShell.Windows()
If InStr(LCase(objIE.FullName), "iexplore.exe") Then
flagIE = True
break
End If
Next
Set objShell = Nothing

'IEがあるかな? なければ新しく開く
IF flagIE Then
Set objIE = CreateObject("InternetExplorer.Application")
End If

'URL開く
objIE.Navigate CStr(適当なセル)　'適当なセルから拾ってくる
sleep(500) 'ちょっと待つ

'以下でフォームに適当に入力
IEオブジェクト.Document.Forms(0).テキストボックス名.value = 設定したい内容

'inputボックスにフォーカスを合わせる どっちでもいいかも
IEオブジェクト.Document.Forms(0).テキストボックス名.focus()
IEオブジェクト.Document.Forms(0).テキストボックス名.select()

↓参考　ここのVBS InternetExplorerのあたり
http://www.happy2-island.com/