关闭Excel透视表小计VB.NET

我在VB.NET中创建pivot表，遇到了一个我不认为会像现在这样困难的问题。当我创建透视表时，它会为每一行添加小计，我不希望这样。在excel中，只需向下拖动“小计”选项，并告诉它不要显示小计。我查看了VBA，它有几行这样的格式：

     ActiveSheet.PivotTables("Main Highway Pivot").PivotFields("Division"). _
    Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
    False, False)

这是一个惊人的代码量，但这是好的，所以我一直在尝试类似的东西与我的透视表在VB.NET

With ptTable
.ManualUpdate = True
.PivotFields("Division").orientation = Excel.XlPivotFieldOrientation.xlRowField
.PivotFields("Net Sales Amt").orientation = Excel.XlPivotFieldOrientation.xlDataField
.PivotFields("Division").Subtotals = false
.ColumnGrand = False
.RowGrand = True
.ManualUpdate = False
End With

我试过几种不同的版本

 .PivotFields("Division").Subtotals = false

但是运气不好。这是正确的代码，而我指定的错误部分是错误的吗？为什么没有

.subtotal = false

让这更容易

无论如何，这对我来说似乎很简单，但经过一番挖掘后，我不知道如何修复它，因此任何帮助都将不胜感激

一如既往地感谢您

这里有一段VBA（来自）可能会有所帮助：

'=========================
Sub NoSubtotals()
'turns off subtotals in pivot table
'.PivotFields could be changed to
'.RowFields or .ColumnFields
Dim pt As PivotTable
Dim pf As PivotField
On Error Resume Next
For Each pt In ActiveSheet.PivotTables
For Each pf In pt.PivotFields
'First, set index 1 (Automatic) to True,
'so all other values are set to False
pf.Subtotals(1) = True
pf.Subtotals(1) = False
Next pf
Next pt
End Sub
'========================