帶有 vba 的數據透視表

Question

我正在嘗試使用 vba 創建數據透視表。 我需要代碼來獲取工作表並使用其中的所有數據創建一個數據透視表。 對於數據透視中的列，我需要：首先是“年份”，然后是“文檔日期”對於“凈到期日后的欠款”行對於我需要“金額”的總和的值

我在下面嘗試了這段代碼，但它給了我一個“需要對象的錯誤”，我以前從未做過樞軸，所以我不確定我是否在正確的軌道上。

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