「地図」で検索するにはどういう操作をすればいいので

質問

ヤフーのトップページから
値を入れて検索を押すまではできるのですが
「ウェブ」ではなく「地図」で検索するにはどういう操作をすればいいのでしょうか？

Sub yahoo()
Dim objIE As Object

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://www.yahoo.co.jp/"

Do While objIE.Busy = True
DoEvents
Loop
Do While objIE.Document.ReadyState <> "complete"
DoEvents
Loop

objIE.Document.forms(0).elements("p").Value = "東京"
'‘「地図」をクリックする操作をしたい
objIE.Document.forms(0).submit

Set objIE = Nothing
End Sub

宜しくお願いいたします。

回答No.1

xls88 · ベストアンサー

ソースを見るとID属性がありますからこれを使えば簡単です。
<a href="r/smas" id="csearch" hidefocus="true">地図</a>

With objIE.Document
.getElementByID("csearch").Click
.getElementByID("srchtxt").value = "東京"
.getElementByID("srchbtn").Click
End With

あるいは
With objIE.Document
.all("csearch").Click
.all("srchtxt").value = "東京"
.all("srchbtn").Click
End With

お礼

地図のタグからid属性を拾えばいいのですね。
他にも応用できそうです。
ありがとうございました。