Цикл на запрос

[bskjohn]

Помогите пожалуйста изменить макрос:

Sub RefreshPrice()
Application.ScreenUpdating = False: Application.DisplayAlerts = False
Sheets.Add
With ActiveSheet.QueryTables.Add(Connect ion:="URL;file:///C:/Таблица1.htm", Destination:=[A1])
.RefreshPeriod = 0
.WebFormatting = xlWebFormattingNone
.WebTables = "9"
.Refresh BackgroundQuery:=False
End With
End Sub

Необходим цикл n, *.htm-файлов n штук, позиция А1, тоже должна менятся на + 50.

[bskjohn]

Неужели, этого сделать нельзя?

[EducatedFool]

Попробуйте такой вариант (сам не проверял)

Sub RefreshPrice()
    Application.ScreenUpdating = False: Application.DisplayAlerts = False
    Worksheets.Add
    n = 20
    For i = 1 To n
        With ActiveSheet.QueryTables.Add _
             (Connection:="URL;file:///C:/Таблица" & i & ".htm", _
              Destination:=[A1].Offset(50 * (i - 1)))
            .RefreshPeriod = 0: .WebTables = "9": .Refresh BackgroundQuery:=False
        End With
    Next
End Sub

[bskjohn]

Огромное спасибо!
Все работает!