Function vivod()
FileCopy "D:\Отчеты\null\Справочник магазинов.xlsx", "\\fs\МТД\Справочники\Справочник магазинов.xlsx"
fresh ("\\fs\МТД\Справочники\Справочник магазинов.xlsx")
End

Function fresh(b1 As String)
Dim book1 As Excel.Workbook
Dim sheet1 As Excel.Worksheet
Dim pt1 As Excel.PivotTable
Dim i, j As Integer
Set book1 = Excel.Workbooks.Open(b1)
For i = 1 To book1.Worksheets.Count
Set sheet1 = book1.Worksheets(i)
If sheet1.PivotTables.Count = 0 And (sheet1.Name Like "*îïèñàíèå*") = False Then
sheet1.ListObjects.Item(1).QueryTable.Refresh
End If
Next
For i = 1 To book1.Worksheets.Count
Set sheet1 = book1.Worksheets(i)
If sheet1.PivotTables.Count > 0 Then
For j = 1 To sheet1.PivotTables.Count
Set pt1 = sheet1.PivotTables(j)
pt1.RefreshTable
Next
End If
Next
Excel.Application.DisplayAlerts = False
book1.Close savechanges:=True
End Function

pt1.RefreshTable