[VBA ] 錄製樞紐的問題
小弟是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