Run-time error 1004 (VBA)

[Aleksy89]

Очень прошу помочь выдает ошибку "невозможно получить свойство 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

[EducatedFool]

Вот так попробуйте:

Sub Auto_open()
    Dim MyMonth As String: MyMonth = MonthName(Month(Now))

    With Лист1.PivotTables("СводнаяТаблица1").PivotFields("Месяц")
        .PivotItems(MyMonth).Visible = True
        .PivotItems("(blank)").Visible = False
    End With
End Sub

MyMonth надо было писать без кавычек - макрос пытался найти текст «MyMonth» вместо текста «Август»

[Aleksy89]

Пишет ту же ошибку в строке " .PivotItems(MyMonth).Visible = True"... (ошибка та же)

[EducatedFool]

Ну так прикрепите свой файл...
Мы тут не телепаты, чтобы угадывать, в чем проблема

[Aleksy89]

высылаю

[EducatedFool]

В коллекции ActiveSheet.PivotTables("СводнаяТаб лица2").PivotFields("Месяц").PivotI tems
содержится 8 элементов - с названиями от «Январь» до «Август»

Элемента (поля) с названием «(blank)» там нет - потому макрос и вылетает с ошибкой на строке

.PivotItems("(blank)").Visible = False

Удалите эту строку из кода - и все будет работать.

[Aleksy89]

Спасибо. все ок.