«Невозможно получить свойство Pivotfields для сводного класса» runtierror - PullRequest
Новая
       10

«Невозможно получить свойство Pivotfields для сводного класса» runtierror

0 голосов
/ 04 января 2019

Я получаю ошибку во время выполнения «Не удалось получить свойство pivotFields класса сводной таблицы» при выполнении кода ниже.Выдает ошибку для каждого случая (1,2,3,4).Я не понимаю, что не так с кодом.Может кто-нибудь помочь? 

 Sub KPIselect()  
 Dim Pvt As PivotTable
 Dim Pf As PivotField
 Dim Sh As Worksheet
 Set Sh = Workbooks("CIFM doc.xlsm").Worksheets("KPI viewer")
 Set Pvt = Sh.PivotTables("PivotTable1")

 If Sh.Range("Selection") = Sh.Range("Calc.Type") Then
   Exit Sub
 Else
   For Each Pf In Pvt.DataFields

    Select Case Range("Selection.number")
    Case 1
    Pvt.AddDataField Pvt.PivotFields("Project Sales (sqft)"),"Sum of Project Sales (sqft)"
    Case 2
    Pvt.AddDataField Pvt.PivotFields("Launch Area (Sqft)"), "Sum of Launch Area (Sqft)"
    Case 3
    Pvt.AddDataField Pvt.PivotFields("Sustenance Area (Sqft)"),"Sum of Sustenance Area (Sqft)"
    Case 4
    Pvt.AddDataField Pvt.PivotFields("CoC"), "Sum of CoC", xlSum

   End Select
   Next Pf
   End If

   End Sub
...