エクセルVBAでのWeb画面の操作方法について

質問

現在エクセルVBAでWeb画面（社内イントラネット）を、navigateを使って開くところまではできております。
しかし、開いた画面で、「イメージ」という個所をクリックさせる方法がわかりません。
HTMLはほとんどわからないのですが、ソースを見ると、多分このあたりだとおもいます。

<tr><td colspan="2">&nbsp;</td></tr><tr><td colspan="2" id="ImageButton" class="Button" onclick="toImage(this, 'INTRA');" onmouseover="BigOn(this);" onmouseout="BigOff(this);">イメージ</td></tr><tr><td colspan="2" id="KakoButton" class="Button" onclick="toKako(this, 'INTRA');" onmouseover="BigOn(this);"

このうち、多分、onclick="toImage(this, 'INTRA');" を実行させればいいのではないかと想像します。
どのような記述になるのか、ご教示いただけましたら幸いです。

回答No.1

maverik1226 · ベストアンサー

こんばんわ。
ご呈示の条件がちと少ないので「objIEというオブジェクトを作ってnavigateさせている」と勝手に前提して回答します。
※もしWebBrowserコントロールをお使いなら、「objIE」を「コントロール名(WebBrowser1とかね)」に置き換えて下さい

まず、Dim objItem As Object　と宣言したうえで

こんな感じでどうでしょうか？
For Each objItem In objIE.document.body.getElementsById("KakoButton")
objItem.Click
Exit For
Next objItem

もしダメならこれではいかがですか？
※同一Webページ内に同じ命令(=toKako(this, 'INTRA'))をする箇所があれば、そちらが動く可能性があります
For Each objItem In objIE.document.body.getElementsByTagName("td")
If objItem.innerHTML Like "*" & "toKako(this, 'INTRA')" & "*" Then
objItem.Click
Exit For
End If
Next objItem

お礼

>　「objIEというオブジェクトを作ってnavigateさせている」と勝手に前提して回答します。

はい、Set objIE = CreateObject("InternetExplorer.Application")としています。
試行錯誤の結果

objIE.Document.getElementById("ImageButton").Click

で目的を達しました。
有難うございました。