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

Question

我试图在 FILTERED 工作表中从 ALL_RECORDS 工作表中的所有非空单元格创建一个数据透视表，（填充的单元格每天都会不同），如下所示：

    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

但是我不断收到错误 5（无效的过程调用或参数）即使我通过保存宏来做到这一点......每次宏运行时我都需要创建数据透视表。 任何帮助将不胜感激。 提前致谢！

Answer 1

我试图重现您的错误代码，我遇到此错误的唯一情况是工作表“已过滤”不存在。 您必须在开始创建数据透视表之前创建它。

例子 ：

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