closuresExcel数据透视表小计VB.NET

我正在VB.NET中创build数据透视表，并遇到了一个问题，我不认为这将是如此困难，因为它是结果。 当我创build一个数据透视表时，它为每一行添加小计，我不希望这样。 在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 

为了使这更容易？

在任何情况下，这似乎是对我来说简单，但经过一些挖掘后，我不知道如何解决它，所以任何帮助，将不胜感激。

谢谢你一如既往

Answer 1

这里有一个VBA的片段（从http://www.pcreview.co.uk/forums/hide-subtotals-rowfields-pivot-table-t974940.html ），这可能有助于：

 '========================= 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 '========================