Auslesen von Entfernungen aus GoogleMaps-Quellcode

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Christo.

    Auslesen von Entfernungen aus GoogleMaps-Quellcode

    Hallo zusammen,

    ich bin noch relativ unbewandert in VBA und steige daher noch nicht hinter jeden Code, den ich so verwende. Ich habe versucht Entfernungen zwischen zwei Orten mittels Google Maps unter Angabe von Ländern, PLZ und Ortsnamen zu ermitteln. Das funktioniert auch schon teilweise, nur schaffe ich es nicht, die reine Entfernung als Zahl aus dem Code zu extrahieren. Ich habe auch nach längerem Suchen, keine passende Lösung für das Durchsuchen des HTML-Quellcodes im Netz gefunden. Kann mir von euch jemand helfen? Im Folgenden der Code, danke schon einmal für jede Antwort! Gruß, Christo

    Quellcode

    1. Option Explicit
    2. Sub Orte()
    4. Dim i As Integer
    5. Dim zeile As Long
    7. With Sheets(1)
    9. zeile = .Range("A65536").End(xlUp).Row
    11. For i = 4 To zeile
    12. .Cells(i, 11).Value = Entfernung(.Cells(i, 4), .Cells(i, 5), .Cells(i, 6), .Cells(i, 7), .Cells(i, 8), .Cells(i, 9))
    13. Next i
    15. End With
    17. End Sub
    21. Function Entfernung(Von_Land As String, Von_PLZ As String, Von_Ort As String, Nach_Land As String, Nach_PLZ As String, Nach_Ort As String)
    23. Dim IEApp As Object
    24. Dim IEDocument As Object
    25. Dim blnGefunden As Boolean
    26. Dim RouteStr As String
    27. Dim Von As String
    28. Dim Nach As String
    29. Dim IEDoc As Object
    30. Dim strTeile As Variant
    31. Dim i As Long
    32. Dim msg As String
    33. Dim F As Integer
    35. blnGefunden = False
    37. Von = Adresse(Von_Land, Von_PLZ, Von_Ort)
    38. Nach = Adresse(Nach_Land, Nach_PLZ, Nach_Ort)
    40. Set IEApp = CreateObject("InternetExplorer.Application")
    41. IEApp.Visible = False
    42. IEApp.Navigate "http://maps.google.com/maps?saddr=" & Von & "&daddr=" & Nach & "&hl=de"
    43. Do: Loop Until IEApp.Busy = False
    44. Set IEDocument = IEApp.Document
    45. Set IEDoc = IEApp.Document
    46. Do: Loop Until IEApp.Busy = False
    48. strTeile = Split(IEDoc.Body.innertext, vbCrLf)
    50. For i = LBound(strTeile) To UBound(strTeile)
    52. If InStr(1, strTeile(i), "Minuten", vbTextCompare) > 0 Then
    53. blnGefunden = True
    54. Entfernung = strTeile(i)
    55. End If
    57. Next
    59. IEApp.Quit
    61. Set IEDocument = Nothing
    62. Set IEApp = Nothing
    64. End Function
    68. Function Adresse(Country As String, City As String, ZIP As String) As String
    70. Dim HStr As String
    72. If Country <> "" Then HStr = Country & " "
    73. If ZIP <> "" Then HStr = HStr & ZIP & " "
    74. If City <> "" Then HStr = HStr & City
    76. Adresse = Trim(HStr)
    78. End Function

    Ich kann dir sagen wie's mit HttpWebRequest geht.
    Wenn dein IEDoc.Body dem ResponseBody bei HttpWebRequest entspricht, kannst du dasselbe Verfahren anwenden.

    Visual Basic-Quellcode

    1. Response = IEDoc.Body
    2. i1 = InStr(i3 + 1, Response, "distance:'", vbTextCompare)
    3. i2 = InStr(i1, Response, "',time:'")
    4. Distance = Mid(Response, i1 + 10, i2 - i1 - 10)
    Noch ein geeignetes Fehlerhandlung einbauen, falls keine Route gefunden wurde.
    Alternativ kannst du auch mit RegEx den String zwischen "distance:'" und "'time:" rausfiltern.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende