ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Can Excel VBA search for and read URL (https://www.excelbanter.com/excel-programming/393812-can-excel-vba-search-read-url.html)

Dirk Nachbar

Can Excel VBA search for and read URL
 
I want Excel to import data from the website
http://neighbourhood.statistics.gov.uk/dissemination/ for given
postcodes, unfortunately it only works if you physically type in the
postcode on the web, as putting the postcode into the PHP style URL
doesn't work. Is Excel able to do that?

Basically I want something like this
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://neighbourhood.statistics.gov.uk/dissemination/
LeadKeyFigures.do?a=3&b=5939933&c=" & Cells(i, 17) &
"&d=14&e=16&g=409939&i=1001x1003x1004&m=0&enc= 1"


Dirk


Don Guillett

Can Excel VBA search for and read URL
 
this seemed to work when I recorded changing the original screen. I'm US so
don't understand UK postcodes.
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 7/20/2007 by Donald B. Guillett
'

'
Range("A5").Select
With Selection.QueryTable
.Connection = _
"URL;http://neighbourhood.statistics.gov.uk/dissemination/LeadAreaSearch.do?a=3&c="
& Cells(3, 1) & "&i=1001&m=0&enc=1&areaSearchText=" & Cells(3, 1) &
"&areaSearchType=13&extendedList=false&searchAreas =Search"
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingRTF
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Dirk Nachbar" wrote in message
ps.com...
I want Excel to import data from the website
http://neighbourhood.statistics.gov.uk/dissemination/ for given
postcodes, unfortunately it only works if you physically type in the
postcode on the web, as putting the postcode into the PHP style URL
doesn't work. Is Excel able to do that?

Basically I want something like this
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://neighbourhood.statistics.gov.uk/dissemination/
LeadKeyFigures.do?a=3&b=5939933&c=" & Cells(i, 17) &
"&d=14&e=16&g=409939&i=1001x1003x1004&m=0&enc= 1"


Dirk



Dirk Nachbar

Can Excel VBA search for and read URL
 
Sorry I should have been more clear, it does work mechanically, but it
doesn't pick up the right area, the area is bascially determined by
b=5939933.

Dirk


Don Guillett

Can Excel VBA search for and read URL
 
Since I am not familiar with UK numbers and you can't explain it to
me,perhaps someone else can help.


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Dirk Nachbar" wrote in message
ps.com...
Sorry I should have been more clear, it does work mechanically, but it
doesn't pick up the right area, the area is bascially determined by
b=5939933.

Dirk




All times are GMT +1. The time now is 05:48 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com