Очень прошу помочь выдает ошибку "невозможно получить свойство PivotItems класса PivotField"...
Сам макрос:
Sub Auto_open()
Dim Mydate As Date
Mydate = CStr(Now)
Dim MyMonth As String
MyMonth = MonthName(CStr(Month(Mydate)), False)
With Лист1.PivotTables("СводнаяТаблица1" ).PivotFields("Месяц")
.PivotItems("MyMonth").Visible = True
.PivotItems("(blank)").Visible = False
End With
End Sub
Сам макрос:
Sub Auto_open()
Dim Mydate As Date
Mydate = CStr(Now)
Dim MyMonth As String
MyMonth = MonthName(CStr(Month(Mydate)), False)
With Лист1.PivotTables("СводнаяТаблица1" ).PivotFields("Месяц")
.PivotItems("MyMonth").Visible = True
.PivotItems("(blank)").Visible = False
End With
End Sub