突然すみません。2010年に回答しておられる「Excel VBAでYahoo!地図情報から住所の緯度の座標を取得して、Loopさせる方法を教えてください!」を参考にしている者です。

突然すみません。2010年に回答しておられる「Excel VBAでYahoo!地図情報から住所の緯度の座標を取得して、Loopさせる方法を教えてください!」を参考にしている者です。 Yahoo!のローカルサーチAPIのアドレスが変わっていて、新しいアドレスでは、どう記述すればいいのか教えていただけるとありがたいのですが、よろしくお願いします。

Excel97閲覧xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

4

XMLについてあんまり詳しくないので、稚拙なコードですが、骨子の部分だけのサンプルを書かせていただきますね。 Sub Sample() 'サンプルとして、アクティブシートのA2セルの住所を検索し、B2セルに経度緯度を書き出します。 Const strAppID As String = "アプリケーションID" Dim strAdr As String Dim objJS As Object, objMSX As Object Dim I As Long Set objJS = CreateObject("ScriptControl") objJS.Language = "JScript" strAdr = "http://search.olp.yahooapis.jp/OpenLocalPlatform/V1/localSearch?appid=" & _ strAppID & "&query=" & objJS.CodeObject.encodeURIComponent([A2]) Set objMSX = CreateObject("MSXML2.XMLHTTP") With objMSX .Open "GET", strAdr, False .send With .responseXML If .getElementsByTagName("Count").Item(0).Text <> 0 Then [B2] = .getElementsByTagName("Coordinates").Item(0).ChildNodes(0).Text End If End With End With Set objMSX = Nothing Set objJS = Nothing End Sub

4人がナイス!しています

ThanksImg質問者からのお礼コメント

お忙しいところ、ありがとうございます。

お礼日時:2014/7/21 13:19