与vba的枢轴表

我正在尝试使用vba创build一个数据透视表。 我需要代码来获取工作表，并使用其中的所有数据创build一个数据透视表。 对于支点中的列我需要：“年”第一，然后“文件date”行“拖欠净到期日”对于值我需要的总和“金额”

我试过下面的代码，但它给了我一个“对象所需的错误”，我从来没有做出枢轴之前，所以我不知道我是否在正确的轨道上。

Sub newPVT() Set Rng = wsA.Range("A1:AA100000") Set rngData = Range(Rng, Rng.End(xlToRight)) Set rngData = Range(Rng, Rng.End(xlDown)) Set rngB = wsB.Range("C8") ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=rngData, Version:=xlPivotTableVersion14).CreatePivotTable TableDestination:=rngB, TableName:="pvtReportA_B", DefaultVersion:=xlPivotTableVersion14 End Sub 

Answer 1

您需要将数据透视表分配给一个对象：

 Sub newPVT() Dim Rng As Range, rngData As Range, rngB As Range Dim pvt As PivotTable Set wsA = Worksheets("Name of your sheet") Set Rng = wsA.Range("A1:AA100000") Set rngData = Range(Rng, Rng.End(xlToRight)) Set rngData = Range(Rng, Rng.End(xlDown)) Set rngB = wsB.Range("C8") Set pvt = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=rngData, Version:=xlPivotTableVersion14).CreatePivotTable TableDestination:=rngB, TableName:="pvtReportA_B", DefaultVersion:=xlPivotTableVersion14 End Sub