MapForums

hey all,

I hope you can help me.

I am trying to make an automated program using excels VBA and the mappoint linkage.

What the idea is, that it will ask for a Uk postcode - once given it will go onto mappoint and bring back into a spreadsheet, how close each of 118 other postcodes are.

This shouldnt be too difficult in my mind - i have a list of all the postcodes in excel and i should be able to get it to lookup off the excel spreadsheet.

But currently i have tried to just program it with 2 places, yet i still cant get it to return a value.

I would post the code, but its so confusing with all the things i have tried i am actually going to start again because i dont know where i am.

Any help much appreciated.

Regards

Dan

some of the code i have now done is

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 06/10/2003 by Daniel Fountain
'
Dim MPApp As New MapPoint.Application
Set MPApp = New MapPoint.Application
MPApp.Visible = True
MPApp.UserControl = True
Dim objMap As MapPoint.Map
Dim objLoc1 As MapPoint.Location
Dim objLoc2 As MapPoint.Location
Dim objCenter As MapPoint.Location

objLoc1 = objMap.FindAddressResults(, , , , IP21ET)


'
End Sub

yet i keep getting an error saying object or block not defined (and i tried the pcode with a space and with speach marks)

any ideas?

DOn't know about in Excel, but in VB, you use a Mappointcontrol object, open it to the location you want then make it active before you can use it



Dim objmap As MapPoint.Map
Dim objLoc As MapPoint.Location
Dim NA As New MapPoint.GeoMapRegion()
Dim objpushpin As MapPoint.Pushpin

AxMappointControl1.NewMap(NA.geoMapEurope)
objmap = AxMappointControl1.ActiveMap

objLoc = objmap.GetLocation(53.585083333333, -2.70344, 25)
objpushpin = objmap.AddPushpin(objLoc, "1")
objpushpin.BalloonState = MapPoint.GeoBalloonState.geoDisplayName

Thats how I start my plotting program in vb.net anyways

Hope this helps

M

Still having the same/similar probs.

Any ideas?