Welcome to MapForums!

Register, sign in, or use Facebook Connect above to join in and participate in the forum.

When you are signed in, this message, the ads in this row, and the red-underlined link ads all go away.

Subscribe to receive our newsletter.
Subscribe Unsubscribe
Results 1 to 3 of 3

Drive time and distance origin and destination MapPointEurope 2009

This is a discussion on Drive time and distance origin and destination MapPointEurope 2009 within the MapPoint Desktop Discussion forums, part of the Map Forums category; I'm trying to adapt an old post I found from 2007 but get an error message on line 2 - ...

  1. #1
    widdopk is offline Market Specialist Yellow Belt
    Join Date
    Apr 2009
    Location
    UK
    Posts
    18

    Drive time and distance origin and destination MapPointEurope 2009

    I'm trying to adapt an old post I found from 2007 but get an error message on line 2 - Dim objApp As New MapPoint.Application- "compile error - user-defined type not defined".:

    Can anyone explain why this is?

    I have a list of origin stores and destination stores in an Excel worksheet.

    Many thanks Keith

    Private Sub CommandButton1_Click()
    Dim objApp As New MapPoint.Application
    Dim objMap As MapPoint.Map
    Dim objRoute As MapPoint.Route
    Dim objLoc1 As MapPoint.Location
    Dim objLoc2 As MapPoint.Location

    Set objApp = CreateObject("MapPoint.Application.EU")
    objApp.Visible = False

    Set objMap = objApp.NewMap
    Set objRoute = objMap.ActiveRoute
    Worksheets("Excel Worksheet").Cells(1, 3).Value = "Drive Distance (kms)"
    Worksheets("Excel Worksheet").Cells(1, 4).Value = "Drive Time (mins)"
    (kms)"
    NReadRow = 2
    n = 2

    Do While Worksheets("Excel Worksheet").Cells(NReadRow, 2) <> ""

    'Locate the 2 points
    Set objLoc1 = objMap.FindResults(Worksheets("Excel Worksheet").Cells(n, 1)).Item(1)
    Set objLoc2 = objMap.FindResults(Worksheets("Excel Worksheet").Cells(NReadRow, 2)).Item(1)

    'Calculate the route
    objRoute.Waypoints.Add objLoc1
    objRoute.Waypoints.Add objLoc2
    objRoute.Calculate

    'Drive Distance in kms
    Worksheets("Excel Worksheet").Cells(NReadRow, 3) = objRoute.Distance
    'Drive Time in minutes
    Worksheets("Excel Worksheet").Cells(NReadRow, 4) = objRoute.DrivingTime
    'Assign the correct hub
    NReadRow = NReadRow + 1
    If Worksheets("Excel Worksheet").Cells(NReadRow, 1).Value <> "" Then
    n = NReadRow
    End If

    Loop

    End Sub
    Keith Widdop

  2. #2
    Winwaed's Avatar
    Winwaed is offline Mapping-Tools.com Black Belt
    Join Date
    Feb 2004
    Location
    Irving,Texas
    Posts
    1,859
    Blog Entries
    60

    Re: Drive time and distance origin and destination MapPointEurope 2009

    You need to add a reference to the MapPoint objects. This will be in the project references rather than the source code.

    At the moment, it doesn't not recognise MapPoint - so you have to tell it what the API objects are and where they are. Adding the reference does this.

    Richard
    Winwaed Software Technology LLC
    http://www.winwaed.com
    See http://www.mapping-tools.com for MapPoint Tools

  3. #3
    widdopk is offline Market Specialist Yellow Belt
    Join Date
    Apr 2009
    Location
    UK
    Posts
    18

    Re: Drive time and distance origin and destination MapPointEurope 2009

    Great, found it thanks for your help.
    Keith Widdop

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Restrict routes based on country of origin/destination
    By dapiper in forum MapPoint Desktop Discussion
    Replies: 5
    Last Post: 03-17-2010, 11:57 AM
  2. Removing time tag on drive distance radius
    By Santa Monica Realtor in forum MapPoint Desktop Discussion
    Replies: 2
    Last Post: 02-18-2009, 01:41 PM
  3. How to calculate distance and drive time between 2 points ?
    By azorgnairelau in forum MapPoint Desktop Discussion
    Replies: 4
    Last Post: 12-08-2007, 10:27 AM
  4. Distance/Drive Time
    By stwilber in forum MapPoint Desktop Discussion
    Replies: 1
    Last Post: 11-10-2006, 11:13 AM
  5. I would like to store an origin and a destination ....
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 2
    Last Post: 06-22-2004, 08:35 AM

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127