何をするプロシージャか
施設の点検や資産管理などの業務アプリケーションを構築する場合に，位置情報（緯度・経度）からその場所の住所へ変換したい場合があります。先に位置情報が分かっていて，そこの住所を知りたい場合は次のようなケースが考えられます。
- Google Mapや電子国土などのWeb GISと連携し，地図画面上でクリックした地点の住所を知りたい
- スマートフォンやGPS付きデジカメで撮影した写真の位置情報から住所を知りたい
これらのような位置情報から，逆ジオコーディングのWebAPIサービスを利用して住所に変換するFunctionプロシージャを作成します。
ReverseGeoCoding関数の作成
上の目的から，引数として緯度・経度を渡し，戻り値が住所となるようなReverseGeoCodingという関数を作成します。
動作確認状況
| Excel | 32ビット | 64ビット |
|---|---|---|
| 2007 | たぶんOK（未確認） | – |
| 2010 | たぶんOK（未確認） | たぶんOK（未確認） |
| 2011 Mac | NG | – |
| 2013 | OK | たぶんOK（未確認） |
2013の32ビットでしか動作確認していませんが、Win32APIを用いていないので、おそらく64ビットでもそのまま動くでしょう。
MSXMLオブジェクトを使用しているため，Mac2011では動作しません。
ソースコード
標準モジュールに以下のコードを記述して，Functionプロシージャを作成します。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
'緯度，経度から住所へ変換する Function ReverseGeoCoding(lat As Single, lon As Single) As String Dim URL As String 'Yahoo!リバースジオコーダAPIに緯度・経度を渡す URL = "http://reverse.search.olp.yahooapis.jp/OpenLocalPlatform/V1/" + _ "reverseGeoCoder?appid=＜あなたのアプリケーションID＞" + _ "&lat=" + CStr(lat) + "&lon=" + CStr(lon) With CreateObject("MSXML2.XMLHTTP") 'IXMLHTTPRequestオブジェクトを作成 .Open "GET", URL, False '読み込み待ちを行うため非同期モードで通信を開始 .send 'リクエストを送信 If .Status <> 200 Then Exit Function 'リクエストが成功しなかったら終了 '返ってきたXMLのAddressタグを探して With .responseXML.getElementsByTagName("Address") '見つかったら最初の住所を返す If .Length > 0 Then ReverseGeoCoding = .Item(0).Text End With End With End Function |
コードの解説
7〜9行目
APIへのリクエストURLを作成しています。逆ジオコーディングが可能なマップサービスは何種類かあると思いますが，ここではYahoo!デベロッパーネットワークで公開されている地図サービス（YOLP）のリバースジオコーダAPIを用います。
＜あなたのアプリケーションID＞には，Yahoo!デベロッパーネットワークに登録して取得したアプリケーションIDで置き換えます。
詳細な利用方法や利用規約などは以下のリンクから確認して下さい。
11〜13行目
リバースジオコーダAPIではXML形式でデータを受信しますので，その処理のためにIXMLHTTPRequest オブジェクトを用意してからリクエストを行います。
16,18行目
リクエストの結果，受信したXMLデータから，Addressタグを探して，最初に見つかった住所を戻り値に代入しています。
実装例
例えば，既知の位置情報として緯度がA2セルに，経度がB2セルに入力済みとし，住所に変換してC2セルに出力するという，非常に簡単な例です。
表全体に対して繰り返し処理するようなルーチンや，ボタンをクリックしたら実行するなどのインターフェースは別途作成してください。
標準モジュールを作成し，以下のコードを記述します。
|
1 2 3 4 5 6 7 8 9 10 11 12 |
Sub 逆ジオコーディングテスト() Dim 緯度 As Single, 経度 As Single, 住所 As String 緯度 = Range("A2").Value 'セルから緯度を取得 経度 = Range("B2").Value 'セルから経度を取得 住所 = ReverseGeoCoding(緯度, 経度) '住所へ変換 Range("C2").Value = 住所 '住所をセルに標示 End Sub |
実行結果
[Alt]+[F8]でマクロを選択して実行してください。
このように住所へ変換することができました。
このとき，APIにより以下のようなXMLを受信しています。Addressタグには，指定した緯度・経度から最も近い住所が記載されているため，この内容を取得しています。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 |
<?xml version="1.0"?> <YDF firstResultPosition="1" totalResultsAvailable="1" totalResultsReturned="1" xmlns="http://olp.yahooapis.jp/ydf/1.0"> <ResultInfo> <Count>1</Count> <Total>1</Total> <Start>1</Start> <Latency>0.0041029453277588</Latency> <Status>200</Status> <Description>指定の地点の住所情報を取得する機能を提供します。</Description> <Copyright>Copyright (C) 2014 Yahoo Japan Corporation. All Rights Reserved.</Copyright> <CompressType/> </ResultInfo> <Feature> <Property> <Country> <Code>JP</Code> <Name>日本</Name> </Country> <Address>東京都新宿区西新宿２丁目８</Address> <AddressElement> <Name>東京都</Name> <Kana>とうきょうと</Kana> <Level>prefecture</Level> <Code>13</Code> </AddressElement> <AddressElement> <Name>新宿区</Name> <Kana>しんじゅくく</Kana> <Level>city</Level> <Code>13104</Code> </AddressElement> <AddressElement> <Name>西新宿</Name> <Kana>にししんじゅく</Kana> <Level>oaza</Level> </AddressElement> <AddressElement> <Name>２丁目</Name> <Kana>２ちょうめ</Kana> <Level>aza</Level> </AddressElement> <AddressElement> <Name>８</Name> <Kana>８</Kana> <Level>detail1</Level> </AddressElement> </Property> <Geometry> <Type>point</Type> <Coordinates>139.6922,35.68959</Coordinates> </Geometry> </Feature> </YDF> |