Question

我在宏录制器上创建了一个数据透视表，由于某种原因，我的宏给了我这个错误。我已经在这个类似的错误上阅读了其他SO问题，但是没有一个解决方案似乎有效。这是代码

Sub macro5()
'
' macro5 Macro
'

'
    Sheets.Add
    ActiveWorkbook.Worksheets("Pivot").PivotTables("PivotTable1").PivotCache. _
        CreatePivotTable TableDestination:="Sheet5!R3C1", TableName:="PivotTable3" _
        , DefaultVersion:=xlPivotTableVersion12
    Sheets("Sheet5").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("PivotTable3").PivotFields("Employee/app.name")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable3").AddDataField ActiveSheet.PivotTables( _
        "PivotTable3").PivotFields("     Hours"), "Sum of      Hours", xlSum
End Sub

错误

ActiveWorkbook.Worksheets("Pivot").PivotTables("PivotTable1").PivotCache. _ CreatePivotTable TableDestination:="Sheet5!R3C1", TableName:="PivotTable3" _ , DefaultVersion:=xlPivotTableVersion12

Answer 1

首先尝试创建数据透视缓存，然后尝试创建数据透视表。下面的示例代码段。另外请记住，每次运行目标表时，目标表都必须是唯一的名称。

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "Pivot!R2C2:R6C5", Version:=xlPivotTableVersion14).CreatePivotTable _
    TableDestination:="Sheet5!R3C1", TableName:="PivotTabletest", DefaultVersion:=xlPivotTableVersion12

数据透视表宏不工作（错误1004：应用程序定义或对象定义错误）

1 个答案: