habe folgenden Code zur Berechnung von Entfernungen über Google-Maps umgeschrieben und alles läuft unter Excel2003 - jetzt auf Excel2007 erhalte ich eine Fehlermeldung und weiß nicht warum:
Private Sub CB_Berechnen_Click()
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 Von_PLZ As String
Dim Nach_PLZ As String
Dim Von_Ort As String
Dim Nach_Ort As String
Dim Von_Straße As String
Dim Nach_Straße As String
Dim IEDoc As Object
Dim strTeile As Variant
Dim i As Long
Dim msg As String
blnGefunden = False
Von_PLZ = TB2.Text
Von_Ort = TB3.Text
Von_Straße = TB4.Text & ", " & TB5.Text
Nach_PLZ = TB7.Text
Nach_Ort = TB8.Text
Nach_Straße = TB9.Text & ", " & TB10.Text
Von = Adresse(Von_Straße, Von_Ort, Von_PLZ)
Nach = Adresse(Nach_Straße, Nach_Ort, Nach_PLZ)
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
IEApp.Navigate "http://maps.google.com/maps?saddr=" & Von & "&daddr=" & Nach & "&hl=de"
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.Document ' Hier kommt die Fehlermeldung !!!
Set IEDoc = IEApp.Document
strTeile = Split(IEDoc.Body.innerText, vbCrLf)
Debug.Print IEDoc.Body.innerText
For i = LBound(strTeile) To UBound(strTeile)
If InStr(1, strTeile(i), "Minuten", vbTextCompare) > 0 Then
blnGefunden = True
TBAnzeige.Text = "Von: " & Von & vbNewLine & "Nach: " & Nach & vbNewLine & strTeile(i)
End If
Next
If blnGefunden = False Then
MsgBox "Die Adresse konnte nicht decodiert werden." & vbCr & "Falsche PLZ?"
Else
'MsgBox msg
End If
IEApp.Quit
Set IEDocument = Nothing
Set IEApp = Nothing
End Sub
Private Sub CB_Exit_Click()
Unload Me
End Sub
Function Adresse(Street As String, City As String, ZIP As String) As StringDim HStr As String
If Street "" Then HStr = Street & ","
If ZIP "" Then HStr = HStr & ZIP & " "
If City "" Then HStr = HStr & City
Adresse = Trim(HStr)
End Function
Laufzeitfehler '-2147467259 (80004005)'
Die Methode 'Document' für das Objekt 'IWebBrowser2' ist fehlgeschlagen
Leider verstehe ich es nicht. Denn auf einem anderen Rechner läuft es Fehlerfrei. Habe auch unter "Verweise" geschaut - beide Identisch !?
Wer kann mir dazu was sagen ?
Gruß
Kay