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

nicodyy · 发表于 2013-3-8 14:21

我自己录制的一个透视宏，但是运行报错。代码如下：
Sub 透视()
'
' 透视 Macro
' 宏由 3 录制，时间: 2013/3/8
'
' 快捷键: Ctrl+t
'
Cells.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
      "C8205A!C1:C22").CreatePivotTable TableDestination:="", TableName:="数据透视表1" _
      , DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("数据透视表1").AddFields RowFields:="部品番号"
With ActiveSheet.PivotTables("数据透视表1").PivotFields("剩余数")
      .Orientation = xlDataField
      .Caption = "求和项:剩余数"
      .Function = xlSum
End With
End Sub

红色这段是报错部分，应该怎么修改？谢谢！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-8 15:31

Sub 创建数透表()
Dim rg As Range
Dim pvc As PivotCache
Dim strMsg As String
With Worksheets("C8205A")
Set rg = .Range("a1").CurrentRegion
Set pvc = ThisWorkbook.PivotCaches.Create(xlDatabase, rg)
End With
Worksheets.Add
With pvc.CreatePivotTable(Range("c8"))
.AddFields RowFields:="部品番号"
.CompactLayoutRowHeader = "部品番号"
.AddDataField .PivotFields("剩余数"), "剩余数求和"
strMsg = .Name & " 创建在 " & ActiveSheet.Name
End With
MsgBox strMsg
End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy · 发表于 2013-3-8 14:27

是不是已经有一个透视表了。

nicodyy · 发表于 2013-3-8 14:29

您的意思是指我当前的这个表还是没打开过的其他表？

hwc2ycy · 发表于 2013-3-8 14:37

当前的表中是否有一个数透表。
你传附件吧。

nicodyy · 发表于 2013-3-8 14:49

没有的。麻烦帮我看看，谢谢。

nicodyy · 发表于 2013-3-8 14:52

布局是
行：部品番号
数据：剩余数（求和）

hwc2ycy · 发表于 2013-3-8 15:01

本帖最后由 hwc2ycy 于 2013-3-8 15:24 编辑

数据里有空白单元行啊。

用代码创建的时候貌似容易出问题。

我上次就帮人解决一个，最后查出来是空单元格选成的。

想起来是，是因为用筛选的操作出的问题。
已经可以创建了。

nicodyy · 发表于 2013-3-8 15:13

这个。。。。。。难道就不能用宏实现自动透视了？

hwc2ycy · 发表于 2013-3-8 15:23

Sub 创建数透表()
Dim rg As Range
Dim pvc As PivotCache
Dim pvt As PivotTable
With Worksheets("C8205A")
Set rg = .Range("a1").CurrentRegion
Set pvc = ThisWorkbook.PivotCaches.Create(xlDatabase, rg)
End With
Worksheets.Add
With pvc.CreatePivotTable(Range("c8"))
.AddFields RowFields:="部品番号"
.AddDataField .PivotFields("剩余数"), "求和"
End With
End Sub

复制代码

nicodyy · 发表于 2013-3-8 15:28

非常感谢，我试试！

		自动登录	找回密码
密码			注册