Pulling data table from multiple pages

[haominimalist]

Hi,

My excel VBA skillls are very poor. I managed to construct a simple code to pull from one of the required pages, but I need a code that is both efficient (will not kill my computer RAM) and/or dynamic OR simply pulls data from all pages.

Every week I pull a data table from a link such as this:
[TABLE="width: 64"]
<tbody>[TR]
[TD="width: 64"][TABLE="width: 64"]
<tbody>[TR]
[TD="width: 64"]https://www.investing.com/indices/us-30-historical-data[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
</tbody>[/TABLE]

The only thing that changes in the URL is the "us-30", for example to "nq100" or "us-spx-500".

Could someone help me out with a code where I can just paste the 25 links into and it pulls the different tables into 1 sheet (one after another)? Table sizes are the same across, and in the same position.

Thanks in advance!

 

[oldbrewer]

show us the line in your code that referencesinvesting.com, please

 

[haominimalist]

Dim objWeb As QueryTable
Dim sWebTable As String

sWebTable = 4

Set objWeb = ActiveSheet.QueryTables.Add( _
Connection:="URL;https://www.investing.com/indices/us-30-historical-data", _
Destination:=Sheets("Prices").Range("a2"))

With objWeb

.WebSelectionType = xlSpecifiedTables
.WebTables = sWebTable
.Refresh BackgroundQuery:=False
End With