Здравствуйте. Я пытаюсь обновить определенную сводную таблицу и соединение / запрос / рабочий лист в одном и том же коде. Я получаю ошибку 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