利用vba修改数据透视表中的数据源

bim-hmc

'new
     thisweek = "0215"
     lastweek= “0201”
      Sheets("对比").Select
    Sheets("对比").Cells(1, 1).Value = thisweek
    ActiveSheet.PivotTables("数据透视表1").PivotCache.SourceData = thisweek & "!$A$1:$M$65536"
    ActiveSheet.PivotTables("数据透视表7").SourceData = thisweek & "!$A$1:$M$65536"
    Sheets("对比").Cells(1, 4).Value = lastweek
    ActiveSheet.PivotTables("数据透视表2").SourceData = lastweek & "!$A$1:$M$65536"
    ActiveSheet.PivotTables("数据透视表8").SourceData = lastweek & "!$A$1:$M$65536"
    'end new
使用率统计计算器.zip (1.36 MB, 下载次数: 236)

2016-2-15 14:35 上传

点击文件名下载附件

我想把数据透视表的数据源使用vba修改，因为每周我就新建一个表处理完数据后，把数据源的表名修改一下就完事了。

bim-hmc

调试了N个代码，终于成功了，我一共有四个数据透视表
    ActiveSheet.PivotTables("数据透视表1").ChangePivotCache ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=thisweek & "!$A$1:$M$65536", Version:=xlPivotTableVersion14)

kikisuz

好贴，没人回，自己写出来了，不错，给我参考用到了

anattaanimitta

厉害，学习了！我正好也有这个问题需要解决

874901000

厉害厉害，正是所需

112ppp

'参考https://baijiahao.baidu.com/s?id=1633516538223371801&wfr=spider&for=pc

• Private Sub CommandButton1_Click()
•   Cells.Clear '清除表内容  'Cells.Delete '删除表内容
•     Dim PTCache As PivotCache 'PivotCache数据透视表缓存
•     Dim PT As PivotTable 'PivotTable数据透视表
•       'PivotCache先把源数据区域写入数据透视表的数据缓存
•       Set PTCache = ActiveWorkbook.PivotCaches.Create( _
•         SourceType:=xlDatabase, _
•         SourceData:=Sheets("明细").Range("A1").CurrentRegion)
•       'PivotTable然后新建立数据透视表并命名为“哈”
•       'Workbooks.Add
•       Set PT = ActiveSheet.PivotTables.Add( _
•         PivotCache:=PTCache, _
•         TableDestination:=Range("A3"), _
•         TableName:="哈")
•         With PT
•           .PivotFields("月份").Orientation = xlPageField '筛选项
•           .PivotFields("行").Orientation = xlRowField '行字段
•           .PivotFields("行1").Orientation = xlRowField '行字段
•           .PivotFields("性别").Orientation = xlColumnField '列字段
•               With .PivotFields("性别") '筛选去掉显示的性别和空白项
•                 .PivotItems("性别").Visible = False
•                 .PivotItems("(空白)").Visible = False
•               End With
•               With .PivotFields("金额")
•                 .Orientation = xlDataField '值字段
•                 .Function = xlSum '函数求和。xlCount计数 xlMin  xlMax xlAverage
•                 .NumberFormat = "#,##0.00;[红色]-#,##0.00" '显示格式
•               End With
•          End With
•     ' 设置数据透视表外观样式
•         With PT
•           .RowAxisLayout RowLayout:=xlTabularRow '布局以表格形式显示
•           .MergeLabels = True '合并居中
•           .HasAutoFormat = False '更新时调整列宽关闭
•         End With
•       ThisWorkbook.RefreshAll '刷新所有数据透视表
•   End Sub