MapForums

I am using mappoint 2006 on excel vba and I am able to calculate distance between two zipcodes by adding vba codes to exccel but what I am not able to do is to find "city and state" on given zipcodes. Basically I want to be able by entering zipcodes into excel cells, "city and state" affliated with that zipcodes shows up into anther cell just like "distance" doses. Anybody knows the codes for this?

How would your code behave if it has a zipcode that contains multiple cities?


Richard

__________________
Winwaed Software Technology LLC
http://www.winwaed.com
See http://www.mapping-tools.com for MapPoint Tools
Pre-Order MapPoint 2009 today: http://www.mapping-tools.com/mappoint2009

I thought zipcode only refer to one city...I have never seen same zipcode for two different cities. If there is such thing, maybe code will pick the main city or the city is bigger..

In rural areas, zipcodes can cover large areas and the US has a tendency to use the name "city" for the smallest little settlement!

I think you're going to have problems getting a city, zip from MapPoint. You would be better off with a database from someone like the USPS. With MapPoint you might be able to code something to find a close point, but it might not do what you want - eg. pick up a neighbouring city.


Richard

__________________
Winwaed Software Technology LLC
http://www.winwaed.com
See http://www.mapping-tools.com for MapPoint Tools
Pre-Order MapPoint 2009 today: http://www.mapping-tools.com/mappoint2009

That's ok to me because I only use this mainly for one state or more..so it doesn't have to be all accurate..plus I have got my own idea for that.So, my only problem here is to be able associate city and state with given zipcodes. or other way around mybe when I give "city and state" mappoint would find zip code. Do you know any code for that? Thanks per your info this is code I'am using right now:

private Sub CommandButton1_Click()
Dim oApp As MapPoint.Application

Set oApp = CreateObject("MapPoint.Application.NA.13")
oApp.Visible = True
Set objMap = oApp.NewMap
Set objRoute = objMap.ActiveRoute

szZip1 = Worksheets("Car").Cells(5, 2)
szZip2 = Worksheets("Car").Cells(6, 2)

'Add route stops and calculate the route
objRoute.Waypoints.Add objMap.FindResults(szZip1).Item(1)
objRoute.Waypoints.Add objMap.FindResults(szZip2).Item(1)
objRoute.Calculate

Worksheets("Car").Cells(7, 3) = objRoute.Distance

Dim objApp As MapPoint.Application

objMap.Saved = True

objMap.Saved = True
End Sub