用于插入数据透视表的宏-解网

问：

我正在尝试使用宏来创建数据透视表。我已经使用了记录宏并按照步骤操作，但是我遇到了错误，并且不太精通VBA。它一直挂在以下最后一行......不知道为什么...谁能帮忙？

Sheets.Add.Name = "Inventory Summary"
Worksheets("Inventory Summary").Move _
    after:=Worksheets("Info")
Sheets("Inventory").Select
Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "Table2", Version:=8).CreatePivotTable TableDestination:= _
    "Inventory Summary!R2C1", TableName:="PivotTable1", DefaultVersion:=8

我已经在宏中记录了这一步，它工作正常。我将其添加到一个更大的宏（多个“步骤”）中。当我运行完整的宏时，我收到一个错误进行调试，它把我带到了上面提到的点。但我看不出有什么问题......

Excel VBA 数据透视表

Sub Tester()

    Dim wb As Workbook, ws As Worksheet, pc As PivotCache, pt As PivotTable
    
    Set wb = ThisWorkbook 'or eg ActiveWorkbook
    Set ws = wb.Worksheets.Add(after:=wb.Worksheets("Info"))
    ws.Name = "Inventory Summary"
    
    Set pc = wb.PivotCaches.Create(SourceType:=xlDatabase, _
                          SourceData:="Table2", Version:=8)
                          
    Set pt = pc.CreatePivotTable(TableDestination:=ws.Range("A2"), _
                   TableName:="PivotTable1", DefaultVersion:=8)

End Sub

如果这仍然不起作用，那么您需要确切地告诉我们您遇到的错误。

用于插入数据透视表的宏

Macro to insert Pivot Table

评论

评论