MapForums

I have this code in an excel file; the idea being to read two postcodes from cells A1 and B1, and return the distance between them to Cell C1.
I think the code is ok, but when I run it it says "User-Defined type not defined" and highlights the second line.

Do I need to set up a specific tools>reference in Excel VBA first?

Pretty please?!
______________

Sub ShowDistance()
Dim objApp As New MapPoint.Application
Dim objMap As MapPoint.Map
Dim objLocOne As MapPoint.Location
Dim objLocTwo As MapPoint.Location

Dim LocOne, LocTwo As String
Dim Distance As Long

Set objMap = objApp.ActiveMap

LocOne = Cells(1, 1)
LocTwo = Cells(1, 2)

Set objLocOne = objMap.FindResults(LocOne).Item(1)
Set objLocTwo = objMap.FindResults(LocTwo).Item(1)


'Show the distance

Distance = objMap.Distance(objLocOne, objLocTwo)

Cells(1, 3) = Distance

End Sub

Hi Jonboy,

I wrote a tutorial related to this earlier this afternoon which I plan to publish tomorrow --
http://www.mp2kmag.com/update/mappoi...er/2005-04-26/

I think the answer to your question is actually in the Part I of the tutorials.

Eric

__________________

Got it working now, thanks Erik.
Batch files here I come.

Looking forward to part IV (which hopefully will include "fuzzy" address searches *cough* )

I've just tried the code provided in the tutorial part III, but vba keeps on returning the same error message (Run-time error '429': ActiveX component can't create object ...) I'm running Excel 2003 and MapPoint 2004. Is there something I'm missing here?

Thanks for your help!

Check the reference under Tools References, it should not be the ActiveX control.

Also, you might try doing this at the command line mappoint.exe /register

Eric