[[20191021231547]]　『マップファンのルート検索自動化』（あやとん）　ページの最後に飛ぶ

『マップファンのルート検索自動化』（あやとん）

出発地と目的地の入った2つのセルからマップファンを使用して、自動でルート検索結果を開くことはできませんか？

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

[[20190904235200]]
こちらを参考にして下さい。朗報ではないですが。
（γ） 2019/10/21(月) 23:53

文字列を直接代入してもボタンが有効にならないのですが、無理矢理押せる状態にして押してしまう例なぞ。これで押せるようにはなるのですが、PCからGPS情報を得ようとしてエラーになりました。まぁ、解析の手掛かり程度にどうぞ。

ちなみに、検索条件はstartクラスからgoalクラスまでになるようです。

 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

 Sub test()
    Dim IE As Object
    Dim i As Long

    Set IE = CreateObject("InternetExplorer.application")
    IE.Visible = True
    IE.Navigate "https://mapfan.com/map/routes/search"
    Sleep 5000
    Call sWait(IE)

    With IE.Document
        .all(0).getelementsbytagname("input")(0).Value = "東京駅（山手線）"
        .all(0).getelementsbytagname("input")(1).Value = "新宿駅（山手線）"
        For i = 0 To .all(0).getelementsbytagname("button").Length - 1
            If .all(0).getelementsbytagname("button")(i).innerText = "ルート検索" Then
                .all(0).getelementsbytagname("button")(i).disabled = False
                DoEvents
                .all(0).getelementsbytagname("button")(i).Click
                Exit For
            End If
        Next i
    End With
 End Sub

 Sub sWait(OBJ As Object)
    While OBJ.readyState <> 4
        While OBJ.Busy = True
            DoEvents
        Wend
    Wend
 End Sub

マップファンなのに、HTML内にはGoogle広告が埋め込まれていたり（押すと何かに感染しそうな怪しいボタンが埋め込まれていました）、自前じゃなくなったのですかねぇ…。
（???） 2019/10/23(水) 17:00

コメント返信：

[ 一覧(最新更新順) ]

[[20191021231547]] 『マップファンのルート検索自動化』（あやとん） ページの最後に飛ぶ

[[20191021231547]]　『マップファンのルート検索自動化』（あやとん）　ページの最後に飛ぶ