C
Clinton M James
Is anybody able to assist here? I recorded a macro to get the code i needed
over getting data from a web page.. basically i wn=ant to grab all provider
information and have the sheet update itself every so often with additions
and deletions.
Anyway, when i did the web query and had the entire region of data i needed
selected, i hit the button to import it, and the text never came across
except two titles of "location" and "name"
Is there a reason the mass of data didn't import? I had no problem with
another site i ge data off.
The macro that grabs data (part only) reads as follows:
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.workcover.nsw.gov.au/wor...1F0-4C55-8DB5-7EE7417B756C}&NRCACHEHINT=Guest"
_
, Destination:=Range("A1"))
.Name = _
"SearchRehabProvider.aspx?NRMODE=Published&NRORIGINALURL=%2fWorkcoverOnline%2fRehabProviders%2fdefault%2ehtm&NRNODEGUID=%7bAB690DDF-A1F0-4C55-8DB5-7EE7417B756C%7d&NRCACHEHINT=Guest"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "15"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
ActiveWindow.SmallScroll Down:=-6
Range("D5").Select
the website is www.workcover.nsw.gov.au
then i go to the "WorkCover Online" option on the left side of screen, then
on right side i select on find a rehabilitation provider amd select all of
them so all display
Basically I am trying to have the macro grab all results... preferrably
going into each result and grabbing the provider number for each one as
well.
Anybody able to assist in why the macro is not grabbing the data as it
should be?
Thank you so much in advance if you can help.
Clint
over getting data from a web page.. basically i wn=ant to grab all provider
information and have the sheet update itself every so often with additions
and deletions.
Anyway, when i did the web query and had the entire region of data i needed
selected, i hit the button to import it, and the text never came across
except two titles of "location" and "name"
Is there a reason the mass of data didn't import? I had no problem with
another site i ge data off.
The macro that grabs data (part only) reads as follows:
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.workcover.nsw.gov.au/wor...1F0-4C55-8DB5-7EE7417B756C}&NRCACHEHINT=Guest"
_
, Destination:=Range("A1"))
.Name = _
"SearchRehabProvider.aspx?NRMODE=Published&NRORIGINALURL=%2fWorkcoverOnline%2fRehabProviders%2fdefault%2ehtm&NRNODEGUID=%7bAB690DDF-A1F0-4C55-8DB5-7EE7417B756C%7d&NRCACHEHINT=Guest"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "15"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
ActiveWindow.SmallScroll Down:=-6
Range("D5").Select
the website is www.workcover.nsw.gov.au
then i go to the "WorkCover Online" option on the left side of screen, then
on right side i select on find a rehabilitation provider amd select all of
them so all display
Basically I am trying to have the macro grab all results... preferrably
going into each result and grabbing the provider number for each one as
well.
Anybody able to assist in why the macro is not grabbing the data as it
should be?
Thank you so much in advance if you can help.
Clint