Excel VBA добавление поля Значения в сводной таблице не работает

Question

Привет. Я пытаюсь добавить поле Значения в мою сводную таблицу.Вот код, который у меня есть на данный момент:

 'Insert Row Fields
   With ActiveSheet.PivotTables("PivotTable").PivotFields("Account Lvl1 Desc")
   .Orientation = xlRowField
   .Position = 1
   End With
   With ActiveSheet.PivotTables("PivotTable").PivotFields("Account Description")
   .Orientation = xlRowField
   .Position = 2
   End With
   With ActiveSheet.PivotTables("PivotTable").PivotFields("Supplier")
   .Orientation = xlRowField
   .Position = 3
   End With

 'Insert Data Field
   With ActiveSheet.PivotTables("PivotTable")

   .PivotFields ("Distrib Amt CAD")
   .Orientation = xlDataField
   .Function = xlSum
   '.NumberFormat = "#,##0"
   .Name = "Sum of OH in CAD "
   End With

Все остальное работает, кроме значений

Answer 1

Я бы порекомендовал провести уборку:

With ActiveSheet.PivotTables("PivotTable")
   'Insert Row Fields
   With .PivotFields("Account Lvl1 Desc")
       .Orientation = xlRowField
       .Position = 1
   End With
   With .PivotFields("Account Description")
       .Orientation = xlRowField
       .Position = 2
   End With
   With .PivotFields("Supplier")
       .Orientation = xlRowField
       .Position = 3
   End With
   'Insert Data Field 
   With .PivotFields ("Distrib Amt CAD")
       .Orientation = xlDataField
       .Function = xlSum
       '.NumberFormat = "#,##0"
       .Name = "Sum of OH in CAD "
   End With
End With

Если у вас есть значения, которые вы, скажем, экспортировали из таблиц полей SharePoint, это строки ... запустите для ваших данных код, аналогичный приведенному ниже, чтобы вы могли отобразить его в виде числа:

With sws 'source worksheet
    lr = .Cells(.Rows.Count, 1).End(xlUp).Row
    For i = 2 To lr
        .Cells(i, 6).Value = Val(.Cells(i, 6).Value) * 1 'Uses column 6 (F)
    Next i
End With

Как только соответствующие данные существуют, они будут давать больше, чем # Значение ошибок на выходе.