Vind ik een code ANWB werkt die niet

Status
Niet open voor verdere reacties.

dinoshop

Terugkerende gebruiker
Lid geworden
8 sep 2000
Berichten
1.100
vind ik een code om in access kilometers berekening via ANWB te doen werkt deze niet wat zit hierin fout .
en is het mogelijk om een code voor routenet in access te zetten hier kan ik niks over vinden ?


Code:
Public Function AfstandANWB(strName1 As String, strName2 As String) As String
    Dim objAll As Object
    Dim objDiv As Object
    With CreateObject("GoogleChroom.Application")
        .Visible = True
        .Navigate "http://www.anwb.nl/verkeer/routeplanner?name1=" & strName1 & "&modality1=car&routeType1=fast&name2=" & strName2    'am_2014
        Do While .Busy Or .ReadyState <> 4
            DoEvents
        Loop
       [COLOR="#FF0000"] ''Application.Wait (Now() + TimeValue("00:00:01"))[/COLOR]
        For Each objDiv In .Document.GetElementsByTagName("div")
            If objDiv.ClassName = "informatie routeInfo" Then
                For Each objAll In objDiv.GetElementsByTagName("*")
                    If objAll.ClassName = "distance" Then
                        '                        AfstandANWB = objAll.getAttribute("data-distance")  'lengte in meters, waarde zonder eenheid
                        AfstandANWB = objAll.InnerText    'lengte in meters/kilometers, waarde met eenheid
                    End If
                Next
            End If
        Next
        .Quit
    End With
End Function
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan