VBA EXCEL 创建一个包含所有填充单元格的数据透视表

Question

I'm trying to create in FILTERED worksheet a pivot table from all non-empty cells in ALL_RECORDS worksheet,(populated cells will be different every day), as follows :

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "ALL_RECORDS!R1C1:R3992C19", Version:=6).CreatePivotTable _
        TableDestination:="FILTERED!R3C1", TableName:="TablaDinámica1", _
        DefaultVersion:=6
    Sheets("FILTERED").Select
    Cells(3, 1).Select

But I keep getting error 5 (Invalid procedure call or argument) Even if i do it by saving a macro... I need to create the pivot table each time the macro runs. Any help will be greatly appreciated. Thanks in advance!

Answer 1

I tried to reproduce your error code, and the only case i have this error is when the sheet "FILTERED" doesn't exist. You have to create it before launching the creation of pivot table.

Example :

Sheets.Add After:=ActiveSheet
ActiveSheet.Name = "FILTERED"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "ALL_RECORDS!R1C1:R3992C19", Version:=6).CreatePivotTable _
    TableDestination:="FILTERED!R3C1", TableName:="TablaDinámica1", _
    DefaultVersion:=6
Sheets("FILTERED").Select
Cells(3, 1).Select