Hi,
The VB Code below will automatically remove subtotals from a pivot table report in Excel. However, I am now using Office 2008, which no longer supports VB for Excel. I have some experience of Applescript with Filemaker, but cannot figure out how/if the code below can be converted to an Applescript, that will perform the same operation in Excel. I would be very grateful if someone could tell me the equivalent Applescript for the VB code, if it can be done.
Thankyou,
SMD
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
Model: Imac
AppleScript: 2.2
Browser: Firefox 2.0.0.11
Operating System: Mac OS X (10.5)