Hi,

HiBelow is an example of a dummy web site that I want to connect to and download the data. What I want to do is execute that code in a loop, increasing the highlighted number by 1. So next time I call the web site the number is 11, then 12, 13, 14 and so on. What is the best way to achieve this?


With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.abc.com/rates.cfm?action=view&RateCode=10" _
        , Destination:=Range("A1"))
        .Name = _
        "rates.cfm?action=view&RateCode=10"

Thank you for your help in advance.

Regards,
Blase

Something like this should do the trick:

Dim i As Integer
Dim strURL As String, strSettings As String, strConnection As String, strName As String

strURL = "http://www.abc.com/"
strSettings = ""rates.cfm?action=view&RateCode="

For i = 10 to 20
   strConnection = "URL;" & strURL & strSettings & i
   strName = strSettings & i
   With ActiveSheet.QueryTables.Add(Connection:= strConnection, Destination:=Range("A1"))
      .Name = strName
   End With
Next i

:)

Thank you, I will give it a go