Office: (Office 2013) Distanz über Google Maps ermitteln

Hallo liebes Forum,

ich würde gern in Excel mit vba die Distanz zwischen zwei Orten automatisiert mittels Google Maps ermitteln. Ich habe dafür den folgenden Code gefunden und ein wenig für mich abgewandelt. Ich verstehe nicht, wieso bei der innertext-Methode nicht der Text der geladenen Seite ausgegeben wird. Aus dem Grund funktioniert auch der ganze Code nicht. Kann mir da jemand helfen?

Vielen Dank für eure Mühe!

Sub Entfernung_berechnen()
Dim IEApp As Object
Dim IEDocument As Object
Dim blnGefunden As Boolean
Dim RouteStr As String
Dim Von As String
Dim Nach As String
Dim IEDoc As Object
Dim strTeile As Variant
Dim i As Long
Dim msg As String
Dim F As Integer
Dim Entfernung As Long

blnGefunden = False
Von = Adresse("Deutschland", "30519", "Hannover")
Nach = Adresse("Deutschland", "10115", "Berlin")
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
IEApp.Navigate "Google Maps" & Von & "&daddr=" & Nach & "&hl=de"
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.Document
Set IEDoc = IEApp.Document
Do: Loop Until IEApp.Busy = False
Cells(1, 1) = IEDoc.Body.innertext
strTeile = Split(IEDoc.Body.innertext, vbCrLf)
For i = LBound(strTeile) To UBound(strTeile)
If InStr(1, strTeile(i), " km", vbTextCompare) > 0 Then
blnGefunden = True
Entfernung = strTeile(i)
End If
Next

IEApp.Quit
Set IEDocument = Nothing
Set IEApp = Nothing
MsgBox (Entfernung)
End Sub
Function Adresse(Country As String, City As String, ZIP As String) As String
Dim HStr As String
If Country "" Then HStr = Country & " "
If ZIP "" Then HStr = HStr & ZIP & " "
If City "" Then HStr = HStr & City
Adresse = Trim(HStr)
End Function

:)

 

Hallo,

https://www.ms-office-forum.net/foru...71&postcount=2

 

Aber ich nutze doch gar keine API mit dem Code, oder?