32CARDS
Board Regular
- Joined
- Jan 1, 2005
- Messages
- 123
I been using the same excel dynamic web query for over 10 years, it becane the basis for almost everything I know ab out Excel VBA
Soon, all my work will be useless as far as web query is concerned, when the web page in question is progressivly "shut down"
The web page is still there, in JSON though. Excel's Import Data from web, simply does not import the data from their new JSON format web page. It still Import's Data, that is because the "old" web page is still available.
Yet, all my calcuations etc from the web page into excel,( automated real time systems ) over 10 years in the making can still "add up" provided the same data can be applied to a Sheet.
Question is, how or where do I make a transition from the current Dynamic Web Query to a JSON web query ?
Example Code:
Current code in VBA is
What will I need to do, to do the same when JSON is thier rule and VBA may not Record Macro the above example ?
Can someone show some example code/s to try ?
Thanks
FYI, curent version of Excel is from Office Home and Student 2010
Soon, all my work will be useless as far as web query is concerned, when the web page in question is progressivly "shut down"
The web page is still there, in JSON though. Excel's Import Data from web, simply does not import the data from their new JSON format web page. It still Import's Data, that is because the "old" web page is still available.
Yet, all my calcuations etc from the web page into excel,( automated real time systems ) over 10 years in the making can still "add up" provided the same data can be applied to a Sheet.
Question is, how or where do I make a transition from the current Dynamic Web Query to a JSON web query ?
Example Code:
Current code in VBA is
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https:// ...web address etc
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "1,2,3,4,5,6,7,10,11,12,13,""pooldata"",55"
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
What will I need to do, to do the same when JSON is thier rule and VBA may not Record Macro the above example ?
Can someone show some example code/s to try ?
Thanks
FYI, curent version of Excel is from Office Home and Student 2010
Last edited: