Function vivod1()

FileCopy "D:\Отчеты\null\Товар Дня.xlsx", "D:\Отчеты\Сегодня\" & Date & " Товар Дня.xlsx"
freshlong ("D:\Отчеты\Сегодня\" & Date & " Товар Дня.xlsx")
FileCopy "D:\Отчеты\Сегодня\" & Date & " Товар Дня.xlsx", "\\fs\Отчеты\Готовые\Товар_Дня\" & Date & "_Товар_Дня.xlsx"

End Function

Function freshlong(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
Sleep (5000)
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
Sleep (5000)
Next
End If
Next
Excel.Application.DisplayAlerts = False
book1.Close savechanges:=True
End Function