Webサービス

郵便番号一覧から住所を求めていく、REST APIを使ったVBAのサンプルコードを公開してみます。使用するWebAPIExcel単体で住所情報検索はできないので、下記「郵便番号検索API」の力を借ります。サービス名郵便番号検索API運営株式会社アイビスURL概要郵便番号検索APIは、日本郵便が公開している郵便番号データを検索する機能をRESTで提供しています。仕様画面仕様表のA列に住所を求めたい「郵便番号」の一覧を入力しています。表の右に住所出力の実行ボタンが配置されています。実行ボタンを押下すると、B列とC列に「住所」と「住所（カナ）」が出力されます。ソースコードSub ボタン1_Click() Dim objXMLHttp As Object, zipArr Dim yubinNo As String Dim splitLine() As String Dim i As Long i = 2 '行番号 Do While Cells(i, 1).value <> "" '入力値からハイフンの削除 yubinNo = Replace(Worksheets("Sheet1").Cells...

REST APIを利用して、郵便番号一覧から住所を求めていくVBAのサンプルコードを公開してみます。ここでは「郵便番号検索API」のサービスを利用してコードを作成します。使用するWebAPIExcel単体で住所情報の取得・検索はできないので、下記「郵便番号検索API」の力を借りています。サービス名郵便番号検索API運営zip.cgis.bizURL郵便番号検索API(概要郵便番号検索APIでは、郵便番号から住所を検索するWEBサービスAPIを無料提供しております。仕様画面仕様シートのA列に住所を求めたい「郵便番号」の一覧を入力しています。シートの右側に住所を出力するための実行ボタンが配置されています。実行ボタンを押下すると、シートのB列とC列に「住所」と「住所（カナ）」が出力されます。ソースコードSub ボタン1_Click() Dim objXMLHttp As Object, zipArr Dim yubinNo As Long Dim line As String Dim splitLine() As String Dim i As Long i = 2 '行番号 Do Whil...