Создание веб-запроса в макросе.

[ar4ie]

Здравствуйте.

Скажите пожалуйста, можно ли в макросе сделать цикл, в котором создавался бы веб-запрос (типа http://www.сайт.ru/play.pl?2006020231006), возвращались данные по запросу, затем менялась бы числовая часть запроса и снова получение данных... и т.д. Нужно получать много данных, в запросах меняются только цифры. Возможно автоматизировать такой процесс получения данных?
Спасибо.

[Antonariy]

Да. XMLHTTP идеально для этого подходит.

[GAGArin]

[offtop]Если это будет использоваться для того чтобы разорить очередную рулетку (а есть такое подозрение), то стоит затею сразу прекратить. Как правило "доморощенные" теории вероятностей против рулетки бессильны[/offtop]

[ar4ie]

[offtop]Если это будет использоваться для того чтобы разорить очередную рулетку (а есть такое подозрение), то стоит затею сразу прекратить. Как правило "доморощенные" теории вероятностей против рулетки бессильны[/offtop]

Нет, речь идет о сборе спортивной статистической информации о проведенных футбольных матчах.

Да. XMLHTTP идеально для этого подходит.

А если сторона сервера не выдает данные в формате XML тогда как?

[GSerg]

Тогда Начать запись макроса, веб-запрос в меню Данные, и использовать код.

[ar4ie]

Тогда Начать запись макроса, веб-запрос в меню Данные, и использовать код.

Вот мне и нужно в коде в цикле изменять часть адреса запроса. Если просто записывать макрос, то адрес запроса не изменить уже потом в коде. Это подходит для одного запроса, а если их сотни? Мне каждый раз новый запрос создавать?

[KL]

Если просто записывать макрос, то адрес запроса не изменить уже потом в коде. Это подходит для одного запроса, а если их сотни? Мне каждый раз новый запрос создавать?

1) Ты попробовал сделать то, что тебе сказал GSerg?
2) Из чего следует, что "адрес запроса не изменить уже потом в коде"
3) У меня записалось вот это:

Код: Выделить всё

Sub Macro1()
    With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.oanda.com", _
        Destination:=Range("A1"))
        .Name = "www.oanda"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = """crossrate"""
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

4) Создавай список адресов и имен/номеров таблиц и гоняй по ним с пом. цикла. Сначала QueryTables.Add а потом

Код: Выделить всё

    With Selection.QueryTable
        .Connection = "URL;http://www.google.com"
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = """bigmac"""
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

[ar4ie]

ОК. Спасибо всем, буду пробовать.