怎么执行录取的数据透视表的宏？

Jakeli

Test.zip (39.71 KB, 下载次数: 22)

2009-3-3 19:38 上传

点击文件名下载附件
采购分析

请看代码：

当第二次运行时就会出现问题，请高手修改！谢谢！见附件！


Sub Macro3()
'
' Macro3 Macro
' Macro recorded 2009-3-3 by
'

'
    Sheets("Summary").Select
    Columns("A:K").Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Summary!C1:C11").CreatePivotTable TableDestination:= _
        "[Test.xls]Analysis!R6C2", TableName:="PivotTable2", DefaultVersion:= _
        xlPivotTableVersion10
    ActiveSheet.PivotTables("PivotTable2").AddFields RowFields:="Vendor No."
    With ActiveSheet.PivotTables("PivotTable2").PivotFields("PPV")
        .Orientation = xlDataField
        .Caption = "Sum of PPV"
        .Function = xlSum
    End With
    ActiveWorkbook.ShowPivotTableFieldList = False
End Sub

Jakeli

SourceData:= _
        "Summary!C1:C11").CreatePivotTable

改为：
SourceData:= _
        "Summary!A1:N65535").CreatePivotTable

leitiger

试了几次没弄好，今天没时间，明天有空再看看。

[ 本帖最后由 leitiger 于 2009-3-3 21:43 编辑 ]

Jakeli

我几年前用过的，但现在找不到以前的文件了！也想不起怎么做了，好象是执行时会产生一个隐藏的表单，名称不配引起的。。。。

leitiger

Sub Macro1()
Dim n As Integer
n = Range("A65536").End(xlUp).Row
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Summary!A1:K" & n).CreatePivotTable TableDestination:= _
        "[Test.xls]Analysis!R5C3", TableName:="数据透视表1", DefaultVersion:= _
        xlPivotTableVersion10
    Sheet2.PivotTables("数据透视表1").AddFields RowFields:="Vendor No."
        With Sheet2.PivotTables("数据透视表1").PivotFields("PPV")
        .Orientation = xlDataField
        .Caption = "Sum of PPV"
        .Function = xlSum
    End With
    ActiveWorkbook.ShowPivotTableFieldList = False
End Sub