郵便番号→住所

Function ZipCodeToAddress(strZipcode)
Dim objXMLHttp As Object, zipArr

'"-"ハイフンが入っていた場合は取り除く
strZipcode = Replace(strZipcode, "-", "")

Set objXMLHttp = CreateObject("MSXML2.XMLHTTP")
objXMLHttp.Open "GET", "http://zip.cgis.biz/csv/zip.php?zn=" & strZipcode, False
objXMLHttp.Send

'APIの結果を配列に代入する
zipArr = Split(Replace(objXMLHttp.responseText, """", ""), ",")

'正常な値が返ってきた場合は配列の要素数が15になる
If UBound(zipArr) = 15 Then
ZipCodeToAddress = zipArr(12) & zipArr(13) & zipArr(14)
Else
'郵便番号が間違っている場合や未入力の場合は、空文字を返す
ZipCodeToAddress = ""
End If

End Function

スポンサーサイト

Comments

Leave a Reply