Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
グーグルマップから、車での2点間の距離を測る
投稿日時: 20/07/26 10:46:30
投稿者: コッスルモリ

グーグルマップから、住所を引っ張て来て
車での2点間の距離を求めるVBAを作りたいのですが
どのようにすればできますでしょうか?
 
A1
B1
に出発地点、到着地点を入れると
 
E1に出発地点、到着地点間の車での距離がでるようにしたいです。
 
知恵袋で下記、コード等載ってましたが
よく分からなかったです
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A:B")) Is Nothing Then Exit Sub
If Cells(Target.Row, 1).Text = "" Or Cells(Target.Row, 2).Text = "" Then Exit Sub
Dim objIE As Object
Dim tgt1
Dim tgt2
 
Set objIE = CreateObject("InternetExplorer.application")
tgt1 = Cells(Target.Row, 1).Text
tgt2 = Cells(Target.Row, 2).Text
objIE.Visible = True
objIE.Navigate "http://maps.google.co.jp/maps"
Do While objIE.Busy = True Or objIE.ReadyState <> 4: Loop
'--ルート乗換案内オブジェクトページのの項目をダイレクト書き込み
With objIE.Document
.all("d_launch").Click
Do While objIE.Busy = True Or objIE.ReadyState <> 4: Loop
Application.Wait Now + TimeValue("00:00:02")
'--車で行く〜自社住所〜得意先住所〜検索
.all("dir_d_btn").Click
.all("d_d").Value = tgt1
.all("d_daddr").Value = tgt2
.all("d_sub").Click
.all("d_options_show").Click
End With
Set objIE = Nothing
End Sub
 
ご教授願います

回答
投稿日時: 20/07/26 12:42:59
投稿者: simple

それはいつ頃の記事ですか?だいぶ古いものではないですか?
 
いずれにしても、掲示板の管理者が、
コードの作成依頼は禁止事項としているようですから、
そうした質問は遠慮されたほうがよいと思います。

回答
投稿日時: 20/07/26 20:55:31
投稿者: simple

実現可能性は直接確認していませんが、
ここ数年のGoogleのスタンスからすると、
こうした無制限に使用できるWebスクレーピングをユーザーが利用できないようにしてきているはずです。
つまり、通常の検索にしても、GoogleMapにしても、基本的にはWebAPI化するなかで、
使用できる量を制限するとともに、適切なユーザー管理と課金をする方向で推移してきています。
 
質問にあるコードはかなり前のもので、上記の環境変化が起きる前の時代の話だと思います。
ですから、今それを実現することは困難なはずです。

投稿日時: 20/07/27 12:43:21
投稿者: コッスルモリ

そうだったんですね。
皆様ありがとうございます