download data from website

[cds]

I have following link to download current months option chain for stock say "sbin"
http://nseindia.com/live_market/dynaContent/live_watch/option_chain/optionKeys.jsp?symbolCode=238&symbol=SBIN&symbol=sbin&instrument=OPTSTK&date=-&segmentLink=17&segmentLink=17"
and my code is as follows :_
Sub Macro6()
'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://nseindia.com/live_market/dynaContent/live_watch/option_chain/optionKeys.jsp?symbolCode=238&symbol=SBIN&symbol=sbin&instrument=OPTSTK&date=-&segmentLink=17&segmentLink=17" _
, Destination:=Range("$A$1"))
' .CommandType = 0
.Name = _
"optionKeys.jsp?symbolCode=238&symbol=SBIN&symbol=sbin&instrument=OPTSTK&date=-&segmentLink=17&segmentLink=17"
.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 = "3"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

End Sub

and for next month, once in the current month page then i have used the following link.

http://nseindia.com/live_market/dynaContent/live_watch/option_chain/optionKeys.jsp?segmentLink=17&instrument=OPTSTK&symbol=SBIN&date=25JUN2015"


and

Sub Macro8()
'
' Macro8 Macro
'


'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://nseindia.com/live_market/dynaContent/live_watch/option_chain/optionKeys.jsp?segmentLink=17&instrument=OPTSTK&symbol=SBIN&date=25JUN2015" _
, Destination:=Range("$A$1"))
' .CommandType = 0
.Name = _
"optionKeys.jsp?segmentLink=17&instrument=OPTSTK&symbol=SBIN&date=25JUN2015"
.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 = "3"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub



If I want to automatise the both links to generate report for many stock, How do I do it.


Please guide me


thanks

 

[diddi]

you would need to check other pages first. in particular note this bit "symbolCode=238&symbol=SBIN&symbol=sbin" which should change
then you can work out a way to list each page you need and cycle through them one by one. with any luck you might be able omit the symbol and just count through SymbolCode values