Циклический веб-запрос с меняющейся частью адресной строки

[allkry]

Уважаемые программисты!
Пересмотрел кучу примеров, но никак не могу прикрутить их к своей задаче.
Мне нужен макрос выполняющий следующее:
Есть диапазон данных (А2:А100) с числовыми значениями.
Нужно создать макрос, для прогона однотипного веб-запроса, в котором в конец адресной строки будет добавляться окончание, равное значению ячейки из заданного диапазона.
Результаты всех этих последовательных запросов должны выгружаться на лист друг под другом.

[EducatedFool]

на одном листе в цикле прогоняете веб-запросы
на другой лист копируете результат после каждого запроса (вставляя результат в первую незаполненную строку)

если использовать эту функцию
http://excelvba.ru/code/WebQueryRange

то делается это примерно так:

SubПример()
    Dim ra As Range, cell As Range, n As Long: On Error Resume Next

    For i = 1 To 10
        ' формируем ссылку
       URL$ = "http://www.planetaexcel.ru/forum.php?forum_id=129&page_forum=" & i

        Set ra = GetQueryRange(URL$, 6)    ' выполняем веб-запрос

        ' копируем результат на лист 2, ниже ранее вставленных данных
        ra.copy  worksheets(2).Range("a" & worksheets(2).Rows.Count).End(xlUp).offset(1)
    
    Next i
End Sub

[allkry]

Сообщение от EducatedFool

на одном листе в цикле прогоняете веб-запросы
на другой лист копируете результат после каждого запроса (вставляя результат в первую незаполненную строку)

если использовать эту функцию
http://excelvba.ru/code/WebQueryRange

то делается это примерно так:

SubПример()
    Dim ra As Range, cell As Range, n As Long: On Error Resume Next

    For i = 1 To 10
        ' формируем ссылку
       URL$ = "http://www.planetaexcel.ru/forum.php?forum_id=129&page_forum=" & i

        Set ra = GetQueryRange(URL$, 6)    ' выполняем веб-запрос

        ' копируем результат на лист 2, ниже ранее вставленных данных
        ra.copy  worksheets(2).Range("a" & worksheets(2).Rows.Count).End(xlUp).offset(1)
    
    Next i
End Sub

Спасибо огромное! В общем виде работает. Удивительно!!! Вы - мастер!
Подскажите, пожалуйста:
- как и куда прописать автоподбор ширины столбца для результатов выдачи.
- как к i "прикрутить" значения ячеек (A1:A10 к примеру)

[EducatedFool]

- как и куда прописать автоподбор ширины столбца для результатов выдачи.

в самый конец вашего макроса:

range("a:f").entirecolumn.autofit

- как к i "прикрутить" значения ячеек (A1:A10 к примеру)

For i = 1 To 10
        ' формируем ссылку
       URL$ = "http://www.planetaexcel.ru/forum.php?forum_id=129&page_forum=" & cells(i,1)

[allkry]

Спасибо огромное!
Очень помогли