用VBA创建数据透视表

neke520

楼主继续分享
我们继续学习

Bettyexcel

我学习了，貌似学得不成功。。。

gtwlren

如果用ADO记录集做动态数据源怎么处理？

jnwysh

收藏  ，学习 。

maxiaoan

有源文件就更好了

waterlamp

按楼主的代码编写，总是提示下标越界，是什么问题呢？明明数据引用位置都有写了啊

wt577

感谢分享，学习了。。。

OKJSJSF

请救为什么我用　TableName:="透视表"　这句，透视表工作表标签名不会变？没作用？

Aiya怪我咯

麻烦哪位大神帮忙看看这个有没有错、、、、求指点
Sub 红包卡透视()

    Windows("分页模版测试.xls").Activate
    Worksheets("红包卡").Activate
    Range("D2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.NumberFormatLocal = "yyyy/m/d"
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Sheet红包卡!R1C4:R10485C30", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:="Sheet红包卡!R2C36:R117C41", TableName:="红包卡透视", _
        DefaultVersion:=xlPivotTableVersion12
    Sheets("红包卡").Select
    Cells(2, 36).Select
    With ActiveSheet.PivotTables("红包卡透视").PivotFields("收款日期")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("红包卡透视").AddDataField ActiveSheet.PivotTables("红包卡透视" _
        ).PivotFields("结算金额"), "计数项:结算金额", xlCount
    With ActiveSheet.PivotTables("红包卡透视").PivotFields("计数项:结算金额")
        .Caption = "求和项:结算金额"
        .Function = xlSum
    End With
   
    Range("AJ5").Select
    Selection.Group Start:=True, End:=True, Periods:=Array(False, False, False, _
        True, True, False, False)
   
End Sub

vga

‘ 采用CreatePivotTable方法，利用透视表缓存创建一个数据透视表！
Set pt = pc.CreatePivotTable TableDestination:=”[VideoStoreRawData.xls]Sheet2! “,TableName:=”Video Data”

有人测试过吗？ 这句我这报错