Public Sub Refresh()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim pc As PivotCache

    Set wb = ThisWorkbook
    Set ws = wb.Worksheets("Лист1")
    Set pc = wb.PivotCaches( 1 )

    ' rst - отфильтрованный рекодсет.
    Set pc.Recordset = rst
     
    With ws
        Set pt = .PivotTables("СводнаяТаблица1")
    End With
     
     ' Обновляем данные.
    pt.RefreshTable

    rst.Close
    Set rst = Nothing
End Sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы