400 Сообщение на VBA - PullRequest
       4

400 Сообщение на VBA

0 голосов
/ 10 октября 2019

Здравствуйте. Я пытаюсь обновить определенную сводную таблицу и соединение / запрос / рабочий лист в одном и том же коде. Я получаю ошибку 400 при первом запуске. Если я попробую еще раз, код работает и работает. Я думаю, что что-то не так в строке Worksheets ("Rejects_Dashboard)".

Sub RefreshAllPivotTablesAtOnce()
Dim wb As Workbook:         Set wb = ThisWorkbook
Dim con As WorkbookConnection

    For Each con In wb.Connections
        If con.Name = "BPO_STATS_DB" Then con.Refresh
        Worksheets("Rejects_Dashboard").PivotTables("PivotTable2")
        .PivotCache.Refresh
Next con
End Sub

1 Ответ

0 голосов
/ 10 октября 2019

Некоторые предложения:

Sub RefreshAllPivotTablesAtOnce()
    Dim wb As Workbook:         Set wb = ThisWorkbook
    Dim con As WorkbookConnection

    'Refresh the folderContents query
    For Each con In wb.Connections
        If con.Name = "BPO_STATS_DB" Then 
            con.Refresh
            wb.Worksheets("Rejects_Dashboard").PivotTables( _
                            "PivotTable2").PivotCache.Refresh
             Exit For 'done at this point
        End If
    Next con
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...