MapForums

Hi Guys

Need some urgent help. Trying to create a function to simply list all Postcode Sectors within a 30 minute drivetime of a list of postcodes.

Almost there - just need a way of getting the data into Excel and i'm stumped. Here's what i have so far:

Function GetDrivetime(Postcode as String)
Dim objapp As MapPoint.Application
Dim objDataSet As MapPoint.DataSet
Dim objDataMap As MapPoint.DataMap
Dim objField As MapPoint.Field
Dim objMap As MapPoint.Map
Dim objLocation As MapPoint.Location
Dim objShape As MapPoint.shape

'Create Mappoint as Object and allow control
Set objapp = CreateObject("Mappoint.application")
objapp.Visible = True
objapp.UserControl = True

'Add data to current map
Set objDataSet = objapp.ActiveMap.DataSets.GetDemographics(geoCount ryUnitedKingdom)
Set objField = objDataSet.Fields(1)
Set objDataMap = objDataSet.DisplayDataMap(geoDataMapTypeShadedArea , objField, geoShowByPostal2, , , , 15)

'Find and set location
Set objMap = objapp.ActiveMap
Set objLoc = objMap.FindResults(Postcode).Item(1)

'Create drivetime
Set objShape = objMap.Shapes.AddDrivetimeZone(objLoc, 30 * geoOneMinute)


'Need to get this data into Excel! Help!


objapp.Quit
Set objapp = Nothing
End Function


Please get back asap if you can help out. Urgent!

Thanks

sugarflux

You've added the Drivetime, I think the next step would be to use Queryshape.

If you are running from within Excel VBA, then you can loop through the resulting Recordset and write to Excel cells.

Eric

Hi Eric

Thanks for getting back to me. When i try the following line:

set rst = objapp.queryshape(objShape)

i get the error "Permission Denied"

Here's the snippet from the Help File --

So you would not use objapp, instead use a dataset object.

Does that make sense?

Instead of
set rst = objapp.queryshape(objShape)
use
set rst = objDataSet.queryshape(objShape)

I think you'll also need to Dim rst.

Eric

Sorry Eric - my mistake - that's what i meant:

set rst = objDataSet.QueryShape(objShape)

returns the permission denied error.

Also tried
set rst = objDataSet.QueryAllRecords

which also produces the permission denied error

I'm am that desperate to figure this out i've even started looking at api calls to try to call the 'Export To Excel' function from the menu - which is stupidly complicated but i need this out today and running out of time!

Any other suggestions ?
Thanks for your help,

sugarflux

I played around with it for a while in Excel VBA and found the same problem, then I searched in this forum -- MapUser gives a great explanation and the solution!

See his post at --

can I get demographic data at 1, 3, and 5 mile radius?

Hope this helps.
Eric

By the way, this is the search I did in google

"Queryshape GetDemographics"

Eric

Thankyou so much Eric

You've been a great help!

I didn't quite get the job out on time but i'm well on my way to getting there this morning,

sugarflux x

Let us know how it goes!

Eric