Sub TestCode() Dim qt As QueryTable Dim URL As String Dim intI As Integer 'This is the direct link, but I use variable data in loop URL = "https://www1.nseindia.com/products/dynaContent/equities/equities/histscrip.jsp?symbolCode=233&symbol=TITAN&symbol=TITAN&segmentLink=17&symbolCount=1&series=ALL&dateRange=1month&fromDate=&toDate=&dataType=PRICEVOLUMEDELIVERABLE" Set qt = Sheet1.QueryTables.Add(Connection:="URL;" & URL, Destination:=Sheet1.Cells(1, 1)) With qt .RefreshOnFileOpen = True .FieldNames = True .WebSelectionType = xlSpecifiedTables .WebTables = 1 .Refresh BackgroundQuery:=False End With For Each qt In Sheet1.QueryTables qt.Delete Next qt For intI = ActiveWorkbook.Connections.Count To 1 Step -1 ActiveWorkbook.Connections.Item(intI).Delete Next End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)