エクセルVBAで、「ウェブサイトへの地図埋め込み用 HTML コード」 を取得するには? 削除
Message#2 2014年10月13日(月)23時09分 From: 管理人 |
googlemapから直接抽出は難しいですが、マップを表示させるのであれば、Google Maps API V3を利用されてはいかがですか? こちらを利用するためには住所の座標を取得必要がありますので、以下サイトから座標を抽出できます。 http://napzak.com/tool/gcode/ こちらのサイトから座標を抽出するマクロは以下になりますので、一度ご確認ください。 Sub sample() Dim objIE As InternetExplorer Call ieView(objIE, "http://napzak.com/tool/gcode/") For Each objTag In objIE.document.getElementsByTagName("input") If objTag.ID = "address" Then objTag.value = "東京都千代田区丸の内1丁目" Exit For End If Next Call tagClick(objIE, "input", "address2latlng_btn") waitTime = Now + TimeValue("0:00:05") Application.Wait waitTime Debug.Print objIE.document.getElementById("lat").value Debug.Print objIE.document.getElementById("lng").value End Sub Sub ieView(objIE As InternetExplorer, _ urlName As String, _ Optional viewFlg As Boolean = True, _ Optional ieTop As Integer = 0, _ Optional ieLeft As Integer = 0, _ Optional ieWidth As Integer = 600, _ Optional ieHeight As Integer = 800) 'IEのオブジェクトを作成する Set objIE = CreateObject("InternetExplorer.Application") 'IEを表示・非表示 objIE.Visible = viewFlg objIE.Top = ieTop 'Y位置 objIE.Left = ieLeft 'X位置 objIE.Width = ieWidth '幅 objIE.Height = ieHeight '高さ '指定したURLのページを表示する objIE.Navigate urlName 'IEが完全表示されるまで待機 Call ieCheck(objIE) End Sub Sub ieCheck(objIE As InternetExplorer) Dim timeOut As Date timeOut = Now + TimeSerial(0, 0, 10) Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Sleep 100 If Now > timeOut Then objIE.Refresh timeOut = Now + TimeSerial(0, 0, 10) End If Loop timeOut = Now + TimeSerial(0, 0, 10) Do Until objIE.document.ReadyState = "complete" DoEvents Sleep 100 If Now > timeOut Then objIE.Refresh timeOut = Now + TimeSerial(0, 0, 10) End If Loop End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。