VBA　郵便番号から住所を取得する方法

1 VBAで郵便番号から住所を取得する方法
2 APIの利用登録
3 YahooAPIを使った郵便番号から住所を取得する

この記事を書いた人
最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

VBAで郵便番号から住所を取得する方法

さて、今回私が使用したのは【Webサービス by Yahoo! JAPAN】から提供されている【郵便番号検索API】です。

正直に言うと別サイトの【郵便番号検索API】のほうが扱いやすかったのですが、このAPIを使用した方法は別のサイト様でも解説していたので、ぶっちゃけ導入がめんどくさい【yahooAPI】を使用してみました(;^ω^)

APIの利用登録

まずは今回使用するYahooAPIはヤフーにアプリケーションの登録なんかをしなければいけません、これはYahoo!IDを持っていれば簡単に取得することができますのでこちらから登録して下さい。
※クライアントサイドを選べば良いと思います。

すると赤枠の中に長い英数字が表示されているはずです。今回はこのコードを使用しますのでどこかに控えておいてください。

また、今回はWEB APIを使用していますのでネットに接続状態でないと使用ができません。(Yahooのサーバーから情報を拾うので)

YahooAPIを使った郵便番号から住所を取得する

さて、さっそくですが今回はこのようなフォームを作成しました

フォームにはそれぞれ

APIキー(TextBox3)
郵便番号(TextBox1)
住所(TextBox2)

で作成しています。

使用イメージとしてはこのような感じです。下記にサンプルファイルも用意しておきますのでご自由に改変してください。

申し訳ありませんが、APIキーはご自身でご用意ください。
今回使用したAPIの詳しい使用はこちらからご覧ください
また、APIの使用についてはYahoo!の規約に遵守するようにお願いします。

Private Sub TextBox1_Change()
TextBox2.Text = yahooAddress(TextBox1.Text)
End Sub
Function yahooAddress(Addresscode)
Dim objHttp As XMLHTTP60
Dim XMLArr As String
Dim start As Long
Dim goal As Long
Set objHttp = New XMLHTTP60
'Set objHttp = CreateObject("MSXML2.XMLHTTP")
'GETリクエストをヤフーに送る
objHttp.Open "GET", "https://map.yahooapis.jp/search/zip/V1/zipCodeSearch?query=" & TextBox1.Text & "&appid=" & TextBox3.Text, False
objHttp.Send
'responseTextでレスポンスを取得
XMLArr = objHttp.responseText
'①:【住所情報である<Address>】の開始と終了の位置をInStr関数で取得して住所を抜き出す。
start = InStr(XMLArr, "<Address>")   '【住所情報である<Address>】の開始位置を取得
goal = InStr(XMLArr, "</Address>")   '【住所情報である<Address>】の終了位置を取得
'②:<Address>がない場合の処理
If start = 0 Or goal = 0 Then '
GoTo skip
End If
'③:①で取得した位置の間の文字をMid関数で抜き出す
yahooAddress = Mid(XMLArr, start + 9, goal - start - 9)
skip:
Exit Function '
'郵便番号が間違っている場合は空を返す
yahooAddress = ""
End Function

Private Sub TextBox1_Change()

TextBox2.Text = yahooAddress(TextBox1.Text)

End Sub

Function yahooAddress(Addresscode)

Dim objHttp As XMLHTTP60

Dim XMLArr As String

Dim start As Long

Dim goal As Long

Set objHttp = New XMLHTTP60

'Set objHttp = CreateObject("MSXML2.XMLHTTP")

'GETリクエストをヤフーに送る

objHttp.Open "GET", "https://map.yahooapis.jp/search/zip/V1/zipCodeSearch?query=" & TextBox1.Text & "&appid=" & TextBox3.Text, False

objHttp.Send

'responseTextでレスポンスを取得

XMLArr = objHttp.responseText

'①:【住所情報である<Address>】の開始と終了の位置をInStr関数で取得して住所を抜き出す。

start = InStr(XMLArr, "<Address>") '【住所情報である<Address>】の開始位置を取得

goal = InStr(XMLArr, "</Address>") '【住所情報である<Address>】の終了位置を取得

'②:<Address>がない場合の処理

If start = 0 Or goal = 0 Then '

GoTo skip

End If

'③:①で取得した位置の間の文字をMid関数で抜き出す

yahooAddress = Mid(XMLArr, start + 9, goal - start - 9)

skip:

Exit Function '

'郵便番号が間違っている場合は空を返す

yahooAddress = ""

End Function

今回のコードはCreateObjetct関数を使用して作成しております。

参照設定で使用したい方は【Microsoft XML, v6.0】を参照設定して変数の宣言を

Dim objHttp As XMLHTTP60
Set objHttp = New XMLHTTP60

1 2	Dim objHttp As XMLHTTP60 Set objHttp = New XMLHTTP60

と変更してご使用ください

ダウンロード

当サイトの免責事項をお読みになってからお使いください。

VBA　Yahoo!API郵便番号検索Sample

1 file(s) 12.54 KB

Download

フォロー・チャンネル登録お願いします

■Twitterフォロー

Follow @taka_pc1027

■YouTubeチャンネル登録

ファイルやコードの利用、WEBサイトの利用について

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

カテゴリーで絞る

月で探す

VBA　郵便番号から住所を取得する方法

taka

最新記事 by taka (全て見る)

VBAで郵便番号から住所を取得する方法

APIの利用登録