Ежедневно нужно обновлять сводные таблицы за предыдущие 2 недели, данные все макросом подгружаются, а как правильно обновить свод- не знаю. Помогите пожалуйста)))
вот эта штука не помогает(
Код |
---|
With ActiveSheet.PivotTables("название свода").PivotFields("Дата") .ClearLabelFilters .PivotFilters.Add Type:=xlDateBetween, Value1:=Format(Range("D4"), "dd\/mm\/yyyy"), Value2:=Format(Range("D5"), "dd\/mm\/yyyy") End With |
вот эта штука не помогает(