[求助]能不能把生成的数据透视表放在另外的worksheet

mickwei

这个程序是把数据透视表的内容放在当前表的U15区域之后,我想把数据透视表放在其他的worksheet,比如说sheet4的a1区域,怎么实现呢?请大侠指教以下.

Private Sub CommandButton3_Click()

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Program Integration!R1C1:R12114C20").CreatePivotTable TableDestination:=Range("U15"), TableName:="Total" ActiveSheet.PivotTables("Total").SmallGrid = False ActiveSheet.PivotTables("Total").AddFields RowFields:=Array("Update Business Group"), ColumnFields:="Corporate Band" ActiveSheet.PivotTables("Total").PivotFields("Global OHR ID").Orientation = xlDataField ActiveSheet.PivotTables("Total").PivotFields("Sum of Global OHR ID").Function = xlCount Range("U15").Select End Sub

mickwei

录制宏是什么意思,我不太会,能不能在编程里面直接实现呢.

mickwei

恩,明白了,以前一直搞不明白宏是干嘛的,居然那么好用.excel真是个好东西,通过编程和宏,能把那么繁琐的数据处理简化成按几个按钮哈

FENGJUN

整（透视表）剪切过去即可

[em08]

[此贴子已经被作者于2005-8-11 16:59:42编辑过]

mickwei

我们这里每个月都要对一大堆数据制作数据透视表.但每个月的数据数目都不一样,而且还有很多的子表的数据也会因此而变化.我是通过以下程序实现数据透视表制作的.每次都要根据新表的数据数目修改程序段的范围,比较麻烦,而且容易出错.能不能实现能程序把整个工作表的全部数据区域作为数据透视的区域.

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Program Integration!R1C1:R12114C20").CreatePivotTable TableDestination:=Range("U55"), TableName:="ByLocByBand"~~~~就是这段范围描述,每次都要改

ActiveSheet.PivotTables("ByLocByBand").SmallGrid = False ActiveSheet.PivotTables("ByLocByBand").AddFields RowFields:=Array("Loc City"), ColumnFields:="Corporate Band" ActiveSheet.PivotTables("ByLocByBand").PivotFields("Global OHR ID").Orientation = xlDataField ActiveSheet.PivotTables("ByLocByBand").PivotFields("Sum of Global OHR ID").Function = xlCount Range("U55").Select

Long_III

录制一个放在其他工作表的宏即可，主要是这个区域

TableDestination:="[Book2]Sheet3!A1"

plxmm

按操作步骤弄，录制的宏就把你的操作情况转化成代码吖。