[原创]重新指定数据透视表数据源小实例

Grant

Private Sub cmd执行查询_Click()
    Dim pTable As OWC10.PivotTable
    Dim pFieldset As OWC10.PivotFieldSet
    Dim pField As OWC10.PivotField
    Dim ptConstants, totNewtotal

   Dim pTableView As OWC10.PivotView
   Dim pAxis As OWC10.PivotAxis

    Dim objQD As QueryDef
    Dim strSQL As String

    If Me.Combo3.Value = 1 Then
        strSQL = "select * from 表1"
    Else
        strSQL = "select * from 表2"
    End If


  Me.查询1_子窗体.Form.RecordSource = strSQL

Set pTable = Me.查询1_子窗体.Form.PivotTable  
Set ptConstants = pTable.Constants


Set totNewtotal = pTable.ActiveView.AddTotal("aa bbb", pTable.ActiveView.FieldSets("bbb").Fields(0), ptConstants.plFunctionSum)
pTable.ActiveView.RowAxis.InsertFieldSet pTable.ActiveView.FieldSets("aaa")
pTable.ActiveView.DataAxis.InsertTotal totNewtotal
pTable.ActiveView.DataAxis.InsertFieldSet pTable.ActiveView.FieldSets("bbb")
pTable.ActiveData.HideDetails

End Sub

为透视表时 可添加总计字段

为透视图时 总计字段不能以vba方式添加,如有方法请告知.

goto2008

Grant

需要引用 Microsoft Office Web 组件 10.0

office版本不同,组件版本也会有所不同.

andymark

谢谢分享!!

wang1950317

Grant老师：为何找回引用后还提示编译错误： Dim pTable As OWC10.PivotTable  用户定义类型未定义？

Grant

版本不同,OWC10 改为 OWC11 或者 OWC9

goto2008

学习。。。