Могу ли я получить Excel, чтобы обновить ~ 500 запросов?

Question

Я настроил рабочую книгу, которая содержит ~ 500 отдельных запросов (по одному на каждый лист рабочей книги, где я пытаюсь собирать ежедневную информацию из Интернета). Я могу обновлять каждый запрос по отдельности без проблем, но это явно требуетмного ручных операций.Когда я пытаюсь обновить все, рабочая книга останавливается примерно на час, затем, когда я получаю контроль, я получаю сообщение, что для большинства запросов истекло время ожидания.

Есть ли способ, чтобы Excel обновил все эти запросы?запросы?

Я использовал следующий код в VBA для создания запросов.

Sub StatsFromWeb()

Dim i As Integer
Dim n As Integer
Dim Name As String
Dim ESPNID As String

n = Sheets("1-Player Roster").Range("A1", Sheets("1-Player Roster").Range("A1").End(xlDown)).Rows.Count
For i = 1 To n
    DoEvents
    Name = Sheets("1-Player Roster").Cells(i, 1).Value
    ESPNID = Sheets("1-Player Roster").Cells(i, 2).Value
    Sheets(Name).Activate
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.espn.com/nba/player/gamelog/_/id/" & ESPNID & "/", Destination:=Range("$AA$1"))
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = False
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = True
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=True
    End With
Next
End Sub