I need a simple way to add pushpins from excel 2003.

I have name address city province postalcode defined in each row so I need to loop through each adding a pushpin for each row. I am a newbie with VBA no experience basically but I know computers and am an old cobol programmer. Can someone help.

Thanks Mark

Hi,

I do not know VBA, but I post you an example in C#, so this should you get you going I think. If I should post in VBA I would give you too many syntax errors

Code:

    FindResults Results = mp.ActiveMap.FindAddressResults(street, city, othercity, region, zip, country);
    if &#40;Results.ResultsQuality <= GeoFindResultsQuality.geoAmbiguousResults&#41; &#123;
        object o = 1;
        Location Loc = &#40;Location&#41;Results.get_Item&#40;ref o&#41;;
        Pushpin PP = mp.ActiveMap.AddPushpin&#40;Loc, ""&#41;;
        PP.Symbol = 20;
        PP.GoTo&#40;&#41;;
    &#125;

The data from Excel can be imported as a dataset using VBA then saved as a mapoint file. The following is code to loop through eight different worksheets (two different types of data - created earlier in the module) and assigns them different pushpins.

Code:

Dim objApp As New MapPoint.Application
Dim objset1(1 To 4), objset2(1 To 4) As MapPoint.DataSet
Dim dsetname1, dsetname2, mptfname, mptfpath, savdate As String

objApp.Visible = True
objApp.UserControl = True
savdate = Evaluate("TEXT(TODAY(),""yyyymmdd"")")

For c = 1 To 4
    dsetname1 = xlsfpath & "!" & data(c) & "shname1"
    dsetname2 = xlsfpath & "!" & data(c) & "shname2"
'   Gives format of "C:\Directory\Workbook.xls!1shname1"
    With objApp.ActiveMap.DataSets
        Set objset1(c) = .ImportData(dsetname1, , geoCountryUnitedKingdom, , geoImportExcelSheet)
        Set objset2(c) = .ImportData(dsetname2, , geoCountryUnitedKingdom, , geoImportExcelSheet)
    End With
    objset1(c).Symbol = 56 + c
    objset2(c).Symbol = 16 + c
    objset1(c).ZoomTo
Next c
    mptfname = "Mapping" & savdate
    mptfpath = Application.GetSaveAsFilename(mptfname, FileFilter:="MapPoint Files (*.ptm),*.ptm", FilterIndex:=1, _
        Title:="Select Save location for MapPoint Data")
    objApp.ActiveMap.SaveAs (mptfpath)

This has a number of variables that are drawn from earlier in the module where the worksheets were named with the numbers 1 to 4 (in preparation for doing this with for..next) and assigns each of the datasets with different symbols according to their number.

The worksheets were also set up with the correct headings - lat, long, name etc to simplify the import. This was written in Excel 2003 working with Mappoint.EU11 (2004 Europe edition) but can easily be run with the US version.

Hope this is of some assistance.

Cheers

Iain