经过我测试是成功的,至于放置在什么事件就要看你了,你4年的问题就要解决了
记得引用office web office版本不同编号有所不同
Dim pTable As OWC10.PivotTable
Set pTable = Me.子窗体.Form.PivotTable
pTable.ActiveData.HideDetails
Private Sub Form_Current()
'以下三句保证数据透视表不重复,,
Dim pTable As OWC10.PivotTable
Set pTable = Me.帮面领取数据透视子窗.Form.PivotTable
pTable.ActiveData.HideDetails
End Sub