Excel und Map Point 2006
17.07.2008 17:11:00
Uwe
zur Entfernungsberechnung in Excel habe ich Map Point 2006 mal ausprobiert.
Mit folgendem Code den ich aus der Recherche angepasst habe, funktioniert auch soweit alles gut.....
Dim MPC As New MapPoint.Application
Dim objMap As MapPoint.Map
Dim objLoc As MapPoint.Location
Dim Entfernung As String
MPC.NewMap MPC.Path & "\Templates\New European Map.ptt" 'damit auch eine Karte da ist
MPC.Visible = False 'Dann wird MapPoint nicht angezeigt
MPC.UserControl = True
Set objMap = MPC.ActiveMap
Set objRoute = objMap.ActiveRoute
strasse1 = Worksheets("Tabelle1").Cells(1, 1)
ort1 = Worksheets("Tabelle1").Cells(2, 1)
plz1 = Worksheets("Tabelle1").Cells(3, 1)
strasse2 = Worksheets("Tabelle1").Cells(1, 3)
ort2 = Worksheets("Tabelle1").Cells(2, 3)
plz2 = Worksheets("Tabelle1").Cells(3, 3)
objRoute.Waypoints.Add objMap.FindAddressResults(strasse1, ort1, , , plz1, "Deutschland")(1)
objRoute.Waypoints.Add objMap.FindAddressResults(strasse2, ort2, , , plz2, "Deutschland")(1)
objRoute.Calculate
Entfernung = CStr(objRoute.Distance)
Worksheets("Tabelle1").Cells(4, 1) = Entfernung
'MsgBox Entfernung
MPC.ActiveMap.Saved = True 'Damit MapPoint nicht zum Speichern geöffnet wird
MPC.Quit
Set MPC = Nothing
..... nur ist mir aufgefallen das wenn z.b. ein Straßenname nicht richtig eingegeben wird , kommt eine andere Entfernung bei raus. Also ob Map Point nur mit der Straße rechnet und einfach eine nimmt die passt. Halt von einem anderen Ort.
Frage
Kann man den Code so ändern das bei der Berechnung auf jeden Fall der Ort und PLZ mit einbezogen wird. Und wenn nichts gefunden wird, eine Rückmeldung kommt.
Oder was ähnliches?
Für die Hilfe bedank ich mich schon mal vorab!!
Gruß Uwe