MapForums

Eric_j_wick · #1 (**permalink**) 04-18-2006

I'm a new developer to MP, and only OK w/VBA in excel. I'm trying to write an Excel UDF that calculates the distance between two addresses. I've already been around the net, including here:

http://www.dailydoseofexcel.com/inde...tions/&paged=2 (scroll down)

I'm having trouble with getting the FindAddressResults method to work, though I can make FindResults work fine.

I've beed so fristrated getting this to work, that I've abandon the UDF and am working with a simple plotting script from somewhere on the web. When I run it, I get the following message: "the parameter is incorrect"

Here's my code:

Code:

Private Sub mapit()
Dim oApp As MapPoint.Application
Dim Objloc As MapPoint.FindResults
  Set oApp = CreateObject("MapPoint.Application.NA.11")
  oApp.Visible = True
  Set oBJMap = oApp.NewMap
 
  'From online instructions: object.FindAddressResults([Street], [City],_
        '[OtherCity], [Region], [PostalCode], [Country])
  '*************
  'Samples coppied from MS website
  '*** Set objLoc = objMap.FindAddressResults("1 Microsoft Way", "Redmond", "WA")(1)
  '****Set objloc = objApp.ActiveMap.FindAddressResults("One Microsoft Way", "Redmond", , "WA
  '******
  'My code that doesn't work -- I get "the parameter is incorrect" error
       Set Objloc = oBJMap.FindAddressResults("4724 Main Street", "Downers Grove", "IL")(1)
  '******************
  oBJMap.AddPushpin Objloc, "NAME"
  objMap.DataSets.ZoomTo

End Sub

Please help.

**Wilfried** · #2 (**permalink**) 04-19-2006

Hi,

FindAddressResults need 6 arguments, where some of them may be an empty string:

Code:

FindAddressResults(street, city, othercity, region, zip, country);

I see only 3 in your example.

BTW: What is the meaning of the extra parentesis '(1)' ?

Eric_j_wick · #3 (**permalink**) 04-19-2006

So I have tried it every logical way, ut it doesn't work for me. The code you see above is taken right from the MS website, but I can't make it work. I've tried the 6 arguments suggested and every other logical combination.

Obviously I'm doing somthething wrong, but my code looks to me exactly like the code from the MS website. Very frustrating.

Help.

EW

**Eric Frost** · #4 (**permalink**) 04-20-2006

Wilfried -- I think FindAddressResults actually returns a collection so the extra parentheses tells it to use the first item in the collection.

Eric -- have you tried the samples in the Help File? Also, take a look at the series of MapPoint / Excel mini-tutorials in the newsletters.

By the way, my name is also Eric and I live in Chicago and am a consultant and MapPoint programmer, we should get together for a beer sometime.

Eric

**Wilfried** · #5 (**permalink**) 04-20-2006

Hi Eric,

Ok I do not know VB, but if the second parentasis is telling to use the first item in the collection, what happens if this item is NULL? Could that give an error ?

Just do some guessing of course ...

Eric_j_wick · #6 (**permalink**) 04-21-2006

Eric,

Thanks for the post. Happy to buy the beer if you can help me solve this problem.

I couldn't find FindAddressResults in Mappoint's Help, and I actually did go to through all of the web tutorials. In fact, when I cut and paste the code from the tutorials to Excel VBA, the ones with FindAddressResults fail to work. As I menioned above, FindResults seems to work for me. There is somethig with the syntax in FindAddressResults that I'm missing and it's driving me nuts.

Please help.

Cheers,

Eric

**Eric Frost** · #7 (**permalink**) 04-21-2006

Just a long shot, but are you possible using MapPoint 2000 or 2001? -- or is either version installed on the machine?

Eric

Eric_j_wick · #8 (**permalink**) 04-23-2006

I'M using Mappoint North America 2004 and I can get the Findresults method to work just find. It's FindaAddressResults that is failing.

Help

EW

**Eric Frost** · #9 (**permalink**) 04-24-2006

Did you try the example from the Help file?

Sub FindAddressSearch()
Dim objApp As New MapPoint.Application
Dim objFindResults As MapPoint.FindResults

'Set up application
objApp.Visible = True
objApp.UserControl = True

'Output first result of find search
Set objFindResults = objApp.ActiveMap.FindAddressResults("One Microsoft Way", "Redmond", , "WA", , geoCountryUnitedStates)
MsgBox "The first item in the find list is: " _
+ objFindResults.Item(1).Name

End Sub

Eric_j_wick · #10 (**permalink**) 04-24-2006

I cut and paste your example directly into the Excel VBA and run the app.

Mappoint kicks off and shows a map of the USA, but then the VBA gets an error "Cannot parse an addresssin the specified country". I tried substituting "United States", 244, and leaving hte country blank. No joy.

Help!

Cheers,

Eric

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
mappoint and excel	mike_v	MapPoint 2006/2009 Discussion	0	05-30-2006 02:35 PM
Excel & MapPoint	Dingo1	MapPoint 2006/2009 Discussion	5	12-12-2005 07:14 PM
Excel and MapPoint	Eric Frost	MapPoint 2006/2009 Discussion	0	05-09-2005 09:01 PM
Mappoint & Excel	Anonymous	MapPoint 2006/2009 Discussion	0	10-27-2004 03:38 AM
MPControl embedded in excel - excel loses functionality	ruyasan	MapPoint 2006/2009 Discussion	2	05-20-2004 03:41 AM

MapForums

Help W Excel Mappoint VBA

Help W Excel Mappoint VBA

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Similar Threads

MapForums

Help W Excel Mappoint VBA

Help W Excel Mappoint VBA

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Similar Threads