緯度・経度から地図表示用のURLを作成

-
1.概要

leafletで地図などを作成していますが、マーカーなどを配置する場合、必須になるのが緯度と経度です。 元となる原単位情報で住所や建物名などの表を作り、そこに緯度と経度を挿入します。緯度と経度の調べ方は、 いろいろありますが、大量の緯度と経度を調べるのは、GoogleMapsなどで一つずつ検索に住所を入れて調べてられません。 そこで住所からの逆引きという方法を用いるのが一般的です。これをアドレスマッチングと言います。筆者も以前は、 GoogleMapsのAPIをコールして自動でアドレスマッチングしていましたが、GoogleMapsにおける無料利用の範囲が制限 されてから、Web上の変換サービスを利用させて頂いています。こうして得られた緯度と経度ですが、精度の面で 検証が必要となります。ときどき変な場所の緯度と経度であったりします。今回は、検証に利用するために緯度と経度を複数の地図での URLリンクを自動で作成するツールを作成して見ました。

2.利用方法

まずは、アドレスマッチングツールを紹介します。
下記のサイト様でサービスが提供されています。住所の入ったCSVデータから一括して変換してくれます。サイトに書かれている 利用方法や注意事項を良く読んで利用して下さい。

「東京大学空間情報科学研究センター」が提供している「Geocoding Tool & Utilities」
URL : http://newspat.csis.u-tokyo.ac.jp/geocode/

利用手順は、次の通りです。
(1)緯度、経度が入力されている表を準備します。
     ※緯度と経度をCSVファイルにしているものでも可。ファイルから入力で行います。
(2)各種地図用URLリンク作成.xlsm起動します。
(3)プルダウンより対象地図を選択します。対象地図は、次の5種類から選択できます。
    ・google maps
    ・Yahoo地図
    ・Bing地図
    ・Mapon
    ・XRAIN GIS版
(4)準備してある表の緯度と経度をコピーして、A5から貼付します。
(5)ファイルから貼付ボタンをクリックします。
(6)地図表示用のURL一覧がE5から表示され、外部ファイルにテキスト形式で出力されます。
(7)ファイルから入力の場合は、ファイルから入力ボタンをクリックして、緯度、経度でカンマ区切
     りされたCSVファイル選択します。

3.ソースコード

ソースコードは、下記の通りです。Excel VBAマクロで作成してあります。
ThisWorkbookは、シート上に配置したコンボボックスにブック起動時に 値(地図名)をセットするための処理をしています。 
'***** 地図サイト選択 *****
Private Sub Workbook_Open()
   With Worksheets("MAIN").MapSelect
        .AddItem ("google maps")
        .AddItem ("Yahoo地図")
        .AddItem ("Bing地図")
        .AddItem ("Mapon")
        .AddItem ("XRAIN GIS版")
   End With
End Sub
Sheet1(MAIN)が、メインの処理ルーチンです。 特に難しい部分はありません。5つの地図のURLパラメータに緯度と経度を挿入しているだけです。 該当行は、85,87,94,101,108行です。また、ファイルへの出力部分は、125行から141行目までで行っています。 CSVファイルからの読み込み処理では、 QueryTablesメソッドを使ってファイルを読み込んでいるため、 比較的高速で処理します。便利な方法ですので、いろいろと使えます。 
'* ****************************************************************************
'*            緯度・経度から地図表示用のURL作成ツール  Ver 1.0
'*
'*    [ 概要 ]
'*    本ツールは、複数の緯度・経度から、地図提供サイトを指定して、リンク用のURLを
'*    自動作成して出力するものです。また、XRAIN GIS版(国土交通省)より指定した
'*    緯度・経度から、周辺の雨雲レーダの状況確認できるようにリンク用のURLを作成
'*    します。
'*
'*
'* ****************************************************************************

 '***** 地図を選択した時 *****
Private Sub MapSelect_Change()
    '***** 選択された値を表示 *****
    'MsgBox(MapSelect.Value)
End Sub

'***** 全て削除 *****
Private Sub dellAll_Click()
    'シートデータをクリア(セルの属性定義を維持したままデータのみを削除)
     If Range("B5") <> "" Then
          Range("B5:E1048576").SpecialCells(xlCellTypeConstants, 23).ClearContents
     End If
End Sub

'***** ファイルから貼付 *****
Private Sub Filepast_Click()
   '画面更新を停止する
    Application.ScreenUpdating = False

    Call UrlGen
    Call outmode

    Worksheets("MAIN").Range("A1").Select

   '画面更新を開始する
    Application.ScreenUpdating = True
    MsgBox "処理が終了しました。"
End Sub

'***** 外部ファイルから入力の場合 *****
Private Sub Fileset_Click()
   '画面更新を停止する
    Application.ScreenUpdating = False

    Call CSVInput
    Call UrlGen
    Call outmode

    Worksheets("MAIN").Range("A1").Select

   '画面更新を開始する
    Application.ScreenUpdating = True
    MsgBox "処理が終了しました。"
End Sub

'***** URL生成処理 *****
Private Sub UrlGen()
Dim i As Long
Dim lngLastRow As Long

   '最終行取得
   With ThisWorkbook.Worksheets("MAIN")
        lngLastRow = .Cells(1048576, "B").End(xlUp).Row
   End With

   '***** 緯度・経度データが未入力の場合 *****
   If lngLastRow = 4 Then
      MsgBox "緯度・経度データがありません。"
      End
   End If

   '/////// 処理開始 ///////

   '***** google mapsの場合 *****
   If (MapSelect.Value) = "google maps" Then
      i = 0
      For i = 1 To lngLastRow - 4
          Cells(i + 4, 5).Value = "https://maps.google.co.jp/maps?q=" & Cells(i + 4, 2) & "," & Cells(i + 4, 3)
      Next i
   End If
   '***** Yahoo地図の場合 *****
   If (MapSelect.Value) = "Yahoo地図" Then
      i = 0
      For i = 1 To lngLastRow - 4
          Cells(i + 4, 5).Value = "https://map.yahoo.co.jp/maps?type=scroll&lat=" & Cells(i + 4, 2) & "&lon=" & Cells(i + 4, 3) & "&mode=map&pointer=on&z=18"
      Next i
   End If
   '***** Bing地図の場合 *****
   If (MapSelect.Value) = "Bing地図" Then
      i = 0
      For i = 1 To lngLastRow - 4
          Cells(i + 4, 5).Value = "http://www.bing.com/maps/?v=2&cp=" & Cells(i + 4, 2) & "~" & Cells(i + 4, 3) & "&style=r&vl=18"
      Next i
   End If
   '***** Mapion地図の場合 *****
   If (MapSelect.Value) = "Mapion地図" Then
      i = 0
      For i = 1 To lngLastRow - 4
          Cells(i + 4, 5).Value = "http://www.mapion.co.jp/m2/" & Cells(i + 4, 2) & "," & Cells(i + 4, 3) & ",16/"
      Next i
   End If
   '***** XRAIN GIS版の場合 (周辺の雨雲レーダ) *****
   If (MapSelect.Value) = "XRAIN GIS版" Then
      i = 0
      For i = 1 To lngLastRow - 4
          Cells(i + 4, 5).Value = "http://www.river.go.jp/x/krd0107010.php?lon=" & Cells(i + 4, 3) & "&lat=" & Cells(i + 4, 2) & "&opa=0.4&zoom=128&leg=0&ext=0"
      Next i
   End If
End Sub

'***** 生成ファイル外部出力処理 *****
Private Sub outmode()
Dim i            As Long
Dim langLastRow  As Long
Dim csvBuf, Temp As String
Dim strFNAME     As String

   '***** 最終行を取得 *****
   With ThisWorkbook.Worksheets("MAIN")
      langLastRow = Cells(1048576, "B").End(xlUp).Row
   End With

   '***** 出力用のtxtファイル作成 *****
   For i = 5 To langLastRow
      Temp = Cells(i, 5).Value & vbCrLf
      csvBuf = csvBuf + Temp
   Next i

   '***** ファイルをShift-JIS形式でセーブする *****
   strFNAME = ThisWorkbook.Path & "¥" & "Map_" & Format(Now(), "yyyymmddhhmmss") & ".txt"

   With CreateObject("ADODB.Stream")
        .Charset = "SJIS"
        .Open
        .WriteText csvBuf
        '***** 1:ファイル有り時上書きしない 2:上書きする *****
        .SaveToFile strFNAME, 2
        .Close
   End With
End Sub

'***** CSV-Read (高速版) *****
Sub CSVInput()
   Dim varFileName As Variant

   ChDir ActiveWorkbook.Path
   varFileName = Application.GetOpenFilename(FileFilter:="CSVファイル(*.csv),*.csv", _
   Title:="CSVファイルの選択")
   If varFileName = False Then
      '画面更新を開始する
      Application.ScreenUpdating = True
      End
   End If

   '【注意】ファイルのセル開始位置は、B5から(※任意に変更のこと)
   With ActiveSheet.QueryTables.Add(Connection:="text;" & varFileName, Destination:=Range("B5"))
         .AdjustColumnWidth = False
         .TextFilePlatform = 932 'Shift=Jis
         .TextFileCommaDelimiter = True
         .Refresh BackgroundQuery:=False
         .Delete
   End With
End Sub

4.ダウンロード

提供するソースコードのライセンスは、CC0 (クレジット表示不要、改変可、商用可) とします。自由に利用して頂いてかまいません。 尚、データの取得やプログラム実行において損害等が生じた場合は、筆者は一切の責任も負いません。全て自己責任でお願いします。

紹介したExcel VBAマクロは、下記よりダウンロードして下さい。

ダウンロード

コメント

コメントを投稿

このブログの人気の投稿

Excelアドインで日本語形態素解析

-
イメージ
1.概要 日本語形態素解析とは、文法的な情報の注記の無い自然言語のテキストデータ（文）から、対象言語の文法や、辞書と呼ばれる単語の品詞等の情報に基づき、 形態素（Morpheme, おおまかにいえば、言語で意味を持つ最小単位）の列に分割し、それぞれの形態素の品詞等を判別する作業です。（出典:Wikipedia） 形態素解析エンジンとしては、Mecabが有名です。筆者もPythonにインストールして、テキストマイニングに利用しています。しかし、会社などで利用したい 場合は、このような環境を個人的な利用目的で構築するにしても、セキュリティ上の問題などでIT管理者などから利用許可が下りない場合があります。 今回は、普段から利用しているExcelのアドインでテキストマイニングをして見たいと思います。特別なサーバーなどへのインストールなしで、 個人PCにアドインのインストール許可さえもらえれば誰でも簡単にテキストマイニング(ワードクラウド)分析をすることができます。 2.利用方法 (1)Excelのアドインである「E2D3」を追加します。「挿入」→「アドインを入手」をクリックし      「データ分析」を選択して、「E2D3」を探します。見つかったら、「追加」をクリックしま      す。これで、「E2D3」が利用できるようになります。 (2)分析するデータ(テキスト文書)を準備します。 (3)下記サイトの日本語形態素解析サービス(無料ツール)を利用して、文書を解析し品詞毎に分解、      統計データとして出力します。 日本語形態素解析サービス(無料ツール) URL : https://opendata-web.site/tool/parse/ ※ブックマーク等に登録しておくと良いでしょう。 (4)分析するデータ(テキスト文書)をテキストボックスに貼付け、解析ボタンをクリックします。 (5)解析結果が日本語形態素と統計の2種類画面出力されるので、統計の表をコピペして、Excelの      空きシートに一時的に貼り付けます。 (6)フィルタを追加して、品詞で名詞を選択してフィルタリングします。名詞のみのデータになるの      で、フィルタしたシートのB列(出現数)、C列(表記)をコピーして退避し、B列とC列を入れ替え

階層構造JSONファイルの作成

-
イメージ
1.はじめに 仕事や趣味でいろいろなデータを扱いますが、プログラミングで扱うデータ形式も多種多様でデータベース、テキスト、csv、xml、json形式など 思い付くだけで数十種類でてきます。データの見える化 (可視化) をやりたくて階層構造のJSON形式のファイルを扱う必要性があり、 元データ収集・編集 ⇒ Excelでデータ作成 ⇒ CSV出力 ⇒ 階層構造のJSONファイルへ変換出力と言ったステップでJSONファイルを作成して見ましたので紹介致します。 2.階層構造CSVtoJSONコンバータ 最初は、テキストエディタで手作業でJSONファイルを作成しょうと試みましたが、{}の対応付けや[,などの挿入漏れなど ミスすることが多くてデータを読み込むとエラーで動かないことの連続でした。何とか効率良く元データより階層構造の JSON形式のファイルを作成することができないものかとネット検索しても意図したものを見つけ出すことが出来ませんでした。 そこで今回、試行錯誤してExcel VBAで作成した 「階層構造CSVtoJSONコンバータ」 によるデータ作成手順をまとめて見ました。 階層構造のJSONファイルとは、 親、子、孫、曾孫・・・といった 階層構造のデータ形式のァイル です。 2-1.データの収集について まずは、目的とすべき元となるデータを収集しなければなりません。データの入手や収集手段はいろいろあると思いますが、 1回限りでのみ利用する場合や不定期、日次、週次、月次など継続的に利用する場合に応じて効率良い方法を選択する必要があります。 企業では自社内の各種システムにて収集や加工・編集などができるツール類もあると思いますが、個人ではなかなか揃えられません。 尚、今回は小規模なデータを扱うことを前提としているので効率的なデータの収集方法などについては別の機会にでも考えていきたいと 思います。ここでは、 「階層構造CSVtoJSONコンバータ」 の説明のためのテストデータを利用しての手順について説明します。 2-2.作成手順 (1)元データの準備 (テスト用に鳥類目録データの一部を利用) (2)Excelで元データを利用して、階層構造のデータ表を作成する。     ※【お願い】ファイルの終端判定のため、A列の末尾のセルにEOFと追記して下

HSPでコマンドプロンプトを制御する

-
イメージ
1.概要 最近は、Excel VBAやPythonなどによる自動化というキーワードを良く耳にしますが、昔からある自動化で最も安定性が あり、比較的単純な手順の記述とコマンド発行といったコマンドプロンプトによる操作およびバッチファイルによる自動処理 があります。システムの運用管理者やネットワーク管理者の人達も多く利用されています。 筆者も一時期は、良く利用していましたがGUIの操作に慣れ過ぎて最近は利用する機会も減ってきています。 今回は、HSP言語によるコマンドプロンプトを操作して外部から文字列(コマンド)を送信する方法を模索して見たいと思います。 2.コマンドプロンプトに文字列送信 コマンドプロンプトにGUI画面上からキー入力された文字列を送信する方法について説明します。 まず、概略の処理の流れを整理します。 (1) コマンドプロンプトを起動させる。 ただし、環境依存を無くすため環境変数 'comspec' より取得したパス名を、 exec 命令のp1パラメータとして渡す。 (2) 入力ボックス等より入力したコマンド（ テキスト文字列 ）をクリップボードにコピーする。 (3) コマンドプロンプト画面をアクティブにする。 (4) クリップボードよりコマンドを貼り付ける。 整理すると、これらの処理を実現させるためには、 ・環境変数'comspec'よりパス名を取得する処理 ・クリップボードにテキスト文字列をコピーする処理 ・任意の画面をアクティブにする処理 ・クリップボードよりテキスト文字列を貼り付ける処理 となります。ここで、一番難しいのはコンソールに対してクリップボードよりテキスト文字列を貼り付ける処理です。 [ ALT ]+[ SP ]+[ e ]+[ p ]+[ Enter ] キーという操作を keybd_event APIを 利用 して送り、貼り付け処理をしても良いのですが、メニューの操作をエミュレートするので、 [ ALT ]+[ SP ] で メニュー がポップアップし、次に [ e ] で編集がクリックされ、更に [ p ]+[ Enter ] キーといった流れとなって メニューの 操作が丸見えとなります。もちろん、動作的にも遅くスマートではありません。 コマンド

TOP