Код VBA только обновляет подключение к данным, все сводные таблицы не обновляются

Question

Я новичок в VBA, мне нужно обновлять sh мою книгу Excel каждый месяц с моим подключением к данным, а также сводные таблицы, построенные на основе моих данных.

это мой код VBA:

Private Sub CommandButton1_Click()
    ActiveWorkbook.RefreshAll
    Dim pvtTbl As PivotTable
        For Each pvtTbl In ActiveSheet.PivotTables
        pvtTbl.RefreshTable
        Next
End Sub

однако, когда я запускаю код, я могу только обновить sh мое подключение для передачи данных. все сводные таблицы не обновляются. может кто-нибудь мне помочь TT