Google Map

あら、１ヶ月近く放置に。。。

まぁ「更新は稀」ですから１ヶ月放置など全然問題無し！ですけどねｗ

先日、知り合いの依頼ではじめて OutLook で VBAのマクロを組んだ。

いや～ OutLook 結構いいな！ｗ

まぁ使わないだろうけど。。。

そこで OutLook の住所から Google Map を開くマクロを書いたんだけど、これって結構便利～～

ってことで Excel用にプチ編集。

Excelで住所が書いてあるセルを選択してこのマクロを実行すると GoogleMapで地図が開きますよ＾＾

コードは下記に記述

UTF-8にエンコードしてあるのでブラウザによっては SJISに修正する必要がある。

まぁ GoogleMap の URLをパラメータ指定で生成して呼び出しているだけですｗ

Sub OpenGoogleMaps()
    Dim objShell As Object
    Dim strAddress As String
    Dim strEnc As String
    Dim c As String
    Dim i As Integer
    
    strAddress = ActiveCell
    
    If strAddress <> "" Then
        strEnc = ""
        For i = 1 To Len(strAddress)
            c = Mid(strAddress, i, 1)
            If c < "0" And c >= " " Then
                c = "%" & Hex(Asc(c))
            End If
            strEnc = strEnc & c
        Next

        Set objShell = CreateObject("WScript.Shell")
        objShell.Run "http://maps.google.co.jp/maps?ie=UTF-8&hl=ja&tab=wl&q=" & strEnc
    End If

End Sub

Google Map

Content

Others