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 2 of 2

Distance and drive time

This is a discussion on Distance and drive time within the Development forums, part of the MapPoint Desktop Discussion category; I've merged Eric's power tool routine to process drive distance and drive time for an origin store to a list ...

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

    Distance and drive time

    I've merged Eric's power tool routine to process drive distance and drive time for an origin store to a list of destination stores with UK postcodes in column D of Worksheet "Destination"

    Any suggestions for improving the routine?

    Many thanks
    --------------------------------------------------------------
    Sub Drive()
    Dim objApp As New MapPoint.Application
    Dim objMap As MapPoint.map
    Dim objRoute As MapPoint.Route
    Dim szZip1 As String
    Dim szZip2 As String
    Set objApp = CreateObject("MapPoint.Application.EU")
    objApp.Visible = True
    objApp.UserControl = True
    Set objMap = objApp.NewMap
    Set objRoute = objMap.ActiveRoute
    Dim MyCurrentRow As Long
    MyCurrentRow = 2
    Do
    szZip1 = Sheets("Origin").Range("D2").Value
    objRoute.Waypoints.Add objMap.FindResults(szZip1).Item(1)
    Sheets("Destination").Range("D" & MyCurrentRow).Select
    szZip2 = Sheets("Destination").Range("D" & MyCurrentRow).Value
    'Locate the 2 points
    objRoute.Waypoints.Add objMap.FindResults(szZip2).Item(1)
    objRoute.Calculate
    'Drive Distance in kms
    Worksheets("Destination").Range("E" & MyCurrentRow).Value = objRoute.Distance
    'Drive Time in minutes
    Worksheets("Destination").Range("F" & MyCurrentRow).Value = objRoute.DrivingTime / geoOneMinute

    Sheets("Destination").Range("D" & MyCurrentRow).Select
    MyCurrentRow = MyCurrentRow + 1
    objRoute.Clear
    Loop
    End Sub
    Keith Widdop

  2. #2
    Wilfried is offline Senior Member Black Belt
    Join Date
    Nov 2004
    Location
    Belgium
    Posts
    2,433

    Re: Distance and drive time

    I think it is OK but I'm no VB specialist

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Drive time and distance origin and destination MapPointEurope 2009
    By widdopk in forum MapPoint Desktop Discussion
    Replies: 2
    Last Post: 09-30-2010, 01:27 PM
  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. Automate large list of drive time & distance calculation
    By onegalacticwino in forum MapPoint Desktop Discussion
    Replies: 1
    Last Post: 12-13-2004, 02:14 PM

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