Question

我想更新数据透视表的数据源但是当我运行makro时出现以下错误：

数据透视表字段无效。要创建数据透视表报表，您必须使用组织为带有标记列的列表的数据...

DataArea = "Log Defects!$A$3:$L$10000" ActiveSheet.PivotTables("PivotTablePriority").SourceData = DataArea

数据透视表名称是正确的！数据区域是从excel复制的（当我点击数据透视表并可以选择数据源时），因此选择应该是正确的。

Answer 1

        Dim WSname as String
        WSname= "Log Defects"
        ActiveSheet.PivotTables("PivotTablePriority").ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        WSname & "!R3C1:R10000C12", Version:= _
        xlPivotTableVersion14)

注意WSname没有引号。还要更改缩放R =行，使其行3为10000，C =列为1到12或列A到L.

更新数据透视表源VBA

1 个答案: