Ошибка сводной с пустыми полями

[ольгаг]

Здравствуйте!
Подскажите пожалуйста как обойти ошибку "Невозможно получить свойство PivotItems класса PivotField" в подчеркнутой строке (vba excel 2003 или 2007)?

With Sheets("svod").PivotTables(1).PivotFields("№ п/п")
  .PivotItems("(пусто)").Visible = False
End With

Спасибо!

[Aleksandr H.]

On Error resume Next
' Your code here
On Error goto 0

?
или же в цикле пройтись по всем PivotItems и перебрать их .Name, если есть совпадение с (пусто) или (empty) запомнить номер и тогда отключить .Visible по номеру

[ольгаг]

Подскажите пожалуйста, какие могут быть условия для пустой ячейки в сводной?
"пусто", "blank" и т.п. (чтобы предусмотреть все варианты)? если разные версии excel и разные операционные системы?

On Error Resume Next
With Sheets("svod").PivotTables(1).PivotFields("№ п/п")
  .PivotItems("(пусто)").Visible = False
  .PivotItems("(blank)").Visible = False
...
End With
On Error goto 0

[Aleksandr H.]

решения не знаю, но предположу что если организовать нормальную выборку данных и размер сводной, то полей "Пусто" не должно быть

[ольгаг]

Спасибо!