ACCESSで最寄りの交通機関の情報を取得するプログラム
ACCESSでのYahoo路線の交通機関の情報を取得するものです。
Set EE = CreateObject("InternetExplorer.application")
EE.Visible = False 'InternetExplorerを立ちあげない。
EE.navigate ("https://beta-map.yahoo.co.jp/place?lat=" & wkeido & "&lon=" & wido & "&zoom=17")
Sleep 4000
If Nz([駅]) = "" Then
strstation = Left(EE.Document.getElementsByClassName("Keyvalue__listItemRow")(0).innerHTML, InStr(EE.Document.getElementsByClassName("Keyvalue__listItemRow")(0).innerHTML, "駅") - 1)
[駅] = strstation
End If
If Nz([沿線]) = "" Then
[沿線] = Replace(Replace(EE.Document.getElementsByClassName("util-text--weak")(0).innerHTML, "(", ""), ")", "")
nd If
If Nz([徒歩その１／車]) = "" Then
[徒歩その１／車] = Replace(EE.Document.getElementsByClassName("KeyvalueListItem__button")(0).innerHTML, "分", "")
End If
EE.Quit
