作者ryanben ()
看板Visual_Basic
标题[VBA ] 录制枢纽的问题
时间Fri Apr 8 19:47:26 2011
小弟是VBA新手
今天想用录制的方式
自制一个枢纽的巨集
但是一直发生以下错误
请问版上的高手可以帮我看看为什麽吗?
Sub Macro6()
'
' Macro6 Macro
' hsdai 在 2011/4/8 录制的巨集
'
'
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"工作表!C1:C8").CreatePivotTable TableDestination:="[商品资料.xls]枢纽
表!R2C2", _
TableName:="枢纽分析表5", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("枢纽分析表5").AddFields
RowFields:=Array("goods_code", _
"资料")
With ActiveSheet.PivotTables("枢纽分析表5").PivotFields("compute_0019")
.Orientation = xlDataField
.Caption = "加总 的compute_0019"
.Position = 1
.Function = xlSum
End With
With ActiveSheet.PivotTables("枢纽分析表5").PivotFields("compute_0020")
.Orientation = xlDataField
.Caption = "加总 的compute_0020"
.Function = xlSum
End With
End Sub
执行後会显示以下错误
执行阶段错误'1004'
无法取得类别worksheet的pivottable属性
请问我该怎样修正呢
谢谢
另外
我真的很想学好VBA
请问有没有什麽方式
可以直接"写出"枢纽的巨集呢?
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 221.120.1.124
※ ryanben:转录至看板 Office 04/08 19:51