Question

这已被问了很多次，但我可以问这里的错误在哪里

Sub PivotFutureProj()

Dim wsNew As Worksheet
    Set wsNew = ThisWorkbook.Sheets.Add(After:= _
             ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    wsNew.Name = "4038 future project"

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "4038 Only!R1C1:R211C87", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:=wsNew.Name & "!R1C1", TableName:="PivotTable1", _
        DefaultVersion:=xlPivotTableVersion12

    With ActiveSheet.PivotTables("PivotTable1").PivotFields("MONTH")
        .Orientation = xlPageField
        .Position = 1
    End With

这部分有错误

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "4038 Only!R1C1:R211C87", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:=wsNew.Name & "!R1C1", TableName:="PivotTable1", _
        DefaultVersion:=xlPivotTableVersion12

我正在考虑因为这个

TableDestination:=wsNew.Name & "!R1C1"

尝试了不同的方法。只是我已经没时间了。

我会感激你的每一个帮助！

Answer 1

在@YowE3K的帮助下完成了它。请看他的评论。：）

Dim wsNew As Worksheet
    Set wsNew = ThisWorkbook.Sheets.Add(After:= _
             ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    wsNew.Name = "4038 future project"

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "'4038 Only'!R1C1:R211C87", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:="'" & wsNew.Name & "'!R1C1", TableName:="PivotTable1", _
        DefaultVersion:=xlPivotTableVersion12

验证工作表范围

创建数据透视表到新工作表表目标VBA上的错误

1 个答案: