vba - 带有宏的 Excel 数据透视表

Question

我录制了一个宏，它生成了一个非常简单的数据透视表。当我播放宏时，PivotTable 中出现错误。 .

我得到:

Invalid procedure call or argument

所以我回过头来在 SourceData 周围加上单引号。和 TableDestination .现在我得到一个数据透视表，但只有总数。它应该给我 A 列中所有项目出现的计数。

这是代码

 Sub testpivot()
'
' testpivot Macro
'
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "'GF Response Detail R'!R1C1:R65536C1", Version:= _
    xlPivotTableVersion10).CreatePivotTable TableDestination:= _
    "'GF Response Detail R'!R2C10", TableName:="PivotTable1", _
    DefaultVersion:=xlPivotTableVersion10
Sheets("GF Response Detail R").Select
Cells(2, 7).Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Region")
    .Orientation = xlRowField
    .Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
    "PivotTable1").PivotFields("Region"), "Count of Region", xlCount
    ActiveWorkbook.ShowPivotTableFieldList = False

End Sub

Answer 1

您想从工作表中删除数据透视表。在运行宏之前。