Wie kan me even op weg helpen met de volgende syntaxis:
Public Function BerekenReistijd(strPostcode1 As String, strPostcode2 As String) As String
Dim strInhoudTextWebsite As String
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "https://maps.google.nl/maps?f=d&source=s_d&saddr=2516CK&daddr=1101AX"
.send
strInhoudTextWebsite = .responseText
End With
BerekenReistijd = strInhoudTextWebsite
End Function
Ik had eerst een ander code om de reistijd en afstand op te vragen echter werkt deze niet meer.
Daarna heb ik een andere code gebruikt, zie hierboven, maar kom niet verder dan de gehele inhoud van de website op te halen echter geen reistijd en afstand.
Ik verwacht dat ik de naamstelling moet weten waar de waarde van de reistijd en afstand in wordt herbergt.
Ik heb eerder hulp gekregen met Google Translater waar de waarde opgevraagd werd in "id=result_box class".
Wellicht heeft iemand al dit probleem getackeld en kan mij snel de juiste code aanleveren of mijn code aanpassen zodat ik deze weer up and running krijgt.
Bij voorbaat dank!
Public Function BerekenReistijd(strPostcode1 As String, strPostcode2 As String) As String
Dim strInhoudTextWebsite As String
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "https://maps.google.nl/maps?f=d&source=s_d&saddr=2516CK&daddr=1101AX"
.send
strInhoudTextWebsite = .responseText
End With
BerekenReistijd = strInhoudTextWebsite
End Function
Ik had eerst een ander code om de reistijd en afstand op te vragen echter werkt deze niet meer.
Daarna heb ik een andere code gebruikt, zie hierboven, maar kom niet verder dan de gehele inhoud van de website op te halen echter geen reistijd en afstand.
Ik verwacht dat ik de naamstelling moet weten waar de waarde van de reistijd en afstand in wordt herbergt.
Ik heb eerder hulp gekregen met Google Translater waar de waarde opgevraagd werd in "id=result_box class".
Wellicht heeft iemand al dit probleem getackeld en kan mij snel de juiste code aanleveren of mijn code aanpassen zodat ik deze weer up and running krijgt.
Bij voorbaat dank!
