excel 插入数据透视表的宏

kninwzqo 于 2023-11-20 发布在其他

关注(0)|答案(1)|浏览(153)

我试图使用宏来创建一个pivot表。我已经使用了record宏并按照步骤进行了操作，但我遇到了一个错误，并且不太熟悉pivot。它一直挂在下面的最后一行.不知道为什么.有人能帮忙吗？

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

来源：https://stackoverflow.com/questions/77426329/macro-to-insert-pivot-table

1条答案

按热度按时间

qyuhtwio1#

将创建缓存和缓存的两个命令分开（并使用一些变量）通常会更清晰：

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

字符串
如果这仍然不起作用，那么你需要告诉我们你得到了什么样的错误。

展开查看全部

赞(0）回复(0）举报 2023-11-20

我来回答

excel 插入数据透视表的宏

1条答案

相关问题

热门标签

最新问答