[已解决]数据透视宏报错，请指教！

hwc2ycy

1. Sub 创建数透表()
   
2.     Dim rg As Range
   
3.     Dim pvc As PivotCache
   
4.     Dim strMsg As String
   
5.     With Worksheets("C8205A")
   
6.         Set rg = .Range("a1").CurrentRegion
   
7.         Set pvc = ThisWorkbook.PivotCaches.Create(xlDatabase, rg)
   
8.     End With
   
9.    
   
10.     Worksheets.Add
    
11.     With pvc.CreatePivotTable(Range("c8"))
    
12.         .AddFields RowFields:="部品番号"
    
13.         .CompactLayoutRowHeader = "部品番号"
    
14.         .AddDataField .PivotFields("剩余数"), "剩余数求和"
    
15.         strMsg = .Name & " 创建在 " & ActiveSheet.Name
    
16.     End With
    
17.     MsgBox strMsg
    
18. End Sub

复制代码