batch Geocode

[Martynrbell]

Hi all,

im attempting to use the website
https://www.doogal.co.uk/BatchGeocoding.php

to take a list of postcodes in column A and either take the results straight from the website and paste into B and C.

Or download the csv File and import into the correct columns.

Sub geoCode()
Dim IE As Object
Dim doc As HTMLDocument
Dim objTag As Object
Lastrow = ThisWorkbook.Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
URL = "https://www.doogal.co.uk/BatchGeocoding.php"
IE.navigate URL
Do While IE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
Set doc = IE.document
doc.getElementById("tabs").Click
For RowNo = 2 To Lastrow
doc.getElementById("postcodes").Value = ThisWorkbook.Worksheets("sheet1").Range("A" & RowNo)
Next
End Sub





This is as far as i can get before i run in to issues.

I cant seem to figure out how to control the rest of the website.

Any help would be appreciated.

Thanks in advance

 

[mole999]

doogal has limits of the amount of data it will process for you

 

[Martynrbell]

Im only planning on doing approx 150 or so a day for approximately 30 days.
Would be nice to see how its done.

I managed to get https://www.latlong.net working, but there is also a daily quota for that but a lot smaller.

I did read in the comments on doogal that there isnt a quota as such, the users just get throttled when breached.

 

[Martynrbell]

Id use the google API but I dont want to pay

 

[mole999]

i would have thought ordnance survey would have the best data being that a postcode is a big beast

 

[kweaver]

Here's a list but it won't fit into Excel because of the row limit in Excel.
If you really need this large list, you might have to put it into Access or another array processing language that can handle that size array.

https://www.freemaptools.com/download-uk-postcode-lat-lng.htm