Question

我有以下代码。当它到达ActiveWorkbook.PivotCaches ..我得到无效的过程调用或参数。我使用Macro Recorder构建了它。不知道如何解决它。
谢谢你的帮助。

Sub PivotTable()
  Sheets("YTD Sr Director").Select
  Range("A3").Select
  ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "YTD Detail!R1C1:R1048576C19", Version:=xlPivotTableVersion14). _
     CreatePivotTable TableDestination:="YTD Sr Director!R3C1", TableName:= _
    "PivotTable2", DefaultVersion:=xlPivotTableVersion14
  Sheets("YTD Sr Director").Select
  Cells(3, 1).Select
  With ActiveSheet.PivotTables("PivotTable2").PivotFields("Pay Amount")
    .Orientation = xlRowField
    .Position = 1
  End With
  ActiveSheet.PivotTables("PivotTable2").AddDataField ActiveSheet.PivotTables( _
    "PivotTable2").PivotFields("# of Drivers"), "Count of # of Drivers", xlCount
  ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
    "PivotTable1").PivotFields("Safety Bonus Paid"), "Count of Safety Bonus Paid",_ 
    xlCount
End Sub

Answer 1

您只需要用一对单引号将您的工作表名称括起来：来自"YTD Detail!R1C1:R1048576C19" 到"'YTD Detail'!R1C1:R1048576C19"

在SourceData和TableDestination参数中。

欲了解更多信息，请阅读： http://www.ugrowit.net/0815-excel-pivot-error-while-recording-a-macro-to-create-pivot-table-automatically/

VBA中的自动数据透视表 - 错误无效的过程调用或参数

1 个答案: