VBAによるHTMLフォーム入力方法

質問

VBA初心者です。

すでに開いているサイト(新たにウィンドウを開かない)上のフォームに、エクセルに記載の内容やラジオボタンの選択等をマクロで入力するにはどのようにすればよいのでしょうか？

例えとして下記のフォームに記入する際のマクロを教えていただけると助かります。
http://www.kanzaki.com/docs/html/htminfo31.html

入力例
氏名：「山田太郎」…エクセルシートのA1に記載
性別：男…エクセルシート未記載
所持品：自動車…エクセルシート未記載
好きな食べ物：バナナ…エクセルシートのC1に記載
テキストエリア：「こんにちは」…エクセルシートのD2に記載

宜しくお願いします！

回答No.1

kumatti1

こんな感じ。
---
Option Explicit

Sub hoge()

Const url = "http://www.kanzaki.com/docs/html/htminfo31.html"

Dim IE As Object
Set IE = CreateObject("Shell.Application").Windows.findwindowSW(url, Empty, 1, 0, 1)
If IE Is Nothing Then Exit Sub

With IE.document
.all("氏名").Value = "山田太郎"
.all("性別")(0).Checked = True
.all("properties")(1).Checked = True
.all("properties")(2).Checked = False
.all("好きな果物")(0).SelectedIndex = 2
.all("freeans").Value = "こんにちは"
End With

End Sub