VBA中如何实现动态的数据透视表数据源

tjlinyun

问个简单的问题,以下是我录制的一个数据透视表的宏,我想让这个宏能够自动选择数据源(即数据源添加新的行后,VBA可以自动识别区域),请问应该怎么做?

Sub 宏3()
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R1C1:R15C4").CreatePivotTable TableDestination:="", TableName:= _
        "数据透视表3"
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("数据透视表3").SmallGrid = False
    ActiveSheet.PivotTables("数据透视表3").AddFields RowFields:="商品编码"
    ActiveSheet.PivotTables("数据透视表3").PivotFields("签收数量").Orientation = xlDataField
End Sub

KCFONG

Sub 宏3()

    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!" & activesheet.usedrange.address).CreatePivotTable TableDestination:="", TableName:= _
        "数据透视表3"
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("数据透视表3").SmallGrid = False
    ActiveSheet.PivotTables("数据透视表3").AddFields RowFields:="商品编码"
    ActiveSheet.PivotTables("数据透视表3").PivotFields("签收数量").Orientation = xlDataField
End Sub

tjlinyun

我试了一下不行哟!而且原来是求和的,不知为什么突然变成了计数,不明白?[em06]

tjlinyun

我自己想了个办法

将要进行数据透视的源区域定义动态的名称database1

database1=OFFSET(sheet1!$A$1,0,0,COUNTA(sheet1!$A:$A),4)

将database1放入sourcedata即可.

Sub 宏3()
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "dababase1").CreatePivotTable TableDestination:="", TableName:= _
        "数据透视表3"
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("数据透视表3").SmallGrid = False
    ActiveSheet.PivotTables("数据透视表3").AddFields RowFields:="商品编码"
    ActiveSheet.PivotTables("数据透视表3").PivotFields("签收数量").Orientation = xlDataField
End Sub

yanjie

直接用数据透视表向导创建Pivottablewizard,就不用pivotcaches.add方法。

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
       range("A1").currentregion.address).CreatePivotTable TableDestination:="", TableName:= _
        "数据透视表3"

tjlinyun

QUOTE:

以下是引用yanjie在2008-10-5 11:02:18的发言：

直接用数据透视表向导创建Pivottablewizard,就不用pivotcaches.add方法。

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
       range("A1").currentregion.address).CreatePivotTable TableDestination:="", TableName:= _
        "数据透视表3"

    比我的方法简单多了,谢谢!

xyhomesky

database1=OFFSET(sheet1!$A$1,0,0,COUNTA(sheet1!$A:$A),4)

这部分代码我也用了。但是红色的部分提示为无效的字符

wamxh521

原帖由 xyhomesky 于 2010-1-29 14:31 发表
database1=OFFSET(sheet1!$A$1,0,0,COUNTA(sheet1!$A:$A),4)

这部分代码我也用了。但是红色的部分提示为无效的字符

我也用过这个，不过没有遇得到你说的问题。万幸。对VBA真的很费解，有时候OK，有时候就不OK，计算机语言，唉~难搞

mydream1899

版主的方法很有用，我正遇到这问题，解决了，谢谢

yzfbee

呵呵。。。谢谢了！刚好需要这个代码！