用宏实现数据透视表（求助）

maymay_jr · 发表于 2005-8-26 10:46

各位大侠，我是新手，还请多多指教

我在用宏实现数据透视表时，当我运行宏时，提示我没有数据透视表类的权限

原文是：Uable to get the Pivotfields property of pivotTable Class

xstCqbsd.rar (40.25 KB, 下载次数: 123)

[此贴子已经被作者于2005-8-26 11:14:04编辑过]

maymay_jr · 发表于 2005-8-26 10:52

需要传什么附件上来呢？

不好意思啊，我是一只小菜青虫[em04]

maymay_jr · 发表于 2005-8-26 10:54

Sub Pivotable() ' ' Pivotable Macro ' Macro recorded 2005-8-26 by may '

' Columns("S:Y").Select ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "Sheet2!C19:C25").CreatePivotTable TableDestination:="", TableName:= _ "PivotTable1" ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1) ActiveSheet.Cells(3, 1).Select ActiveSheet.PivotTables("PivotTable1").SmallGrid = False With ActiveSheet.PivotTables("PivotTable1").PivotFields("维修处理1") .Orientation = xlRowField .Position = 1 End With With ActiveSheet.PivotTables("PivotTable1").PivotFields("保修期到期日") .Orientation = xlDataField .Position = 1 End With Application.CommandBars("PivotTable").Visible = False End Sub

maymay_jr · 发表于 2005-8-26 10:57

With ActiveSheet.PivotTables("PivotTable1").PivotFields("维修处理1")

这句就报上面的错误了[em06]

maymay_jr · 发表于 2005-8-26 11:14

已上传，谢谢大侠们啊

maymay_jr · 发表于 2005-8-26 11:32

等待中……

maymay_jr · 发表于 2005-8-26 13:38

我已经重新录制很多遍了，还是不行

不知plxmm说的正确方法是……

maymay_jr · 发表于 2005-8-26 13:53

我好像大概知道原因了，好像是因为我选择的时候选择的是整列，如我直接点击X、Y列，这样就不行

如果选择一个特定的数据如X1、Y1到X8、Y8就可以成功

但是我的数据是不确定的，我不知道它每次具体有多少条啊

还请大家指教

maymay_jr · 发表于 2005-8-26 15:17

[em04][em04]

plxmm · 发表于 2005-8-26 13:46

很奇怪，偶这里就是在你4楼提供的第三句处就不能运行了。

		自动登录	找回密码
密码			免费注册