[算表] VBA建立樞紐問題

看板Office作者aming123 (平凡幼稚鬼...)時間13年前 (2012/09/22 23:27)推噓0(0推 0噓 6→)

留言6則, 2人參與討論串1/1

軟體:EXCEL 2003 版本:NA 請教各位高手,小弟用錄製的方式建立巨集,巨集的內容為建立樞紐分析表及圖,並設定按下commandbutton時執行此巨集,但執行時發生錯誤"執行階段錯誤1004,class pivottable的addfiles 方法失敗",請教各位這是那裡出了問題? ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "summary!C1:C13").CreatePivotTable TableDestination:= _ "'[新增Microsoft Excel 工作表.xls]Sheet1'!R10C1", TableName:="樞紐分析表1", _ DefaultVersion:=xlPivotTableVersion10 **************************************************************************** ActiveSheet.PivotTables("樞紐分析表1").AddFields RowFields:="資料", ColumnFields:= _ "PM Parts", PageFields:=Array("Type", "型號")<-------顯示異常的程式 ****************************************************************************** With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("PM Parts") .Orientation = xlDataField .Position = 1 End With With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("電容") .Orientation = xlDataField .Position = 2 End With With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("ESC") .Orientation = xlDataField .Position = 3 End With With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("POWER") .Orientation = xlDataField .Position = 4 End With With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("gas") .Orientation = xlDataField .Position = 5 End With With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("pilot wafer iuuse") .Orientation = xlDataField .Position = 6 End With With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("APC") .Orientation = xlDataField .Position = 7 End With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("其它").Orientation = xlDataField Charts.Add ActiveChart.Location Where:=xlLocationAsNewSheet Sheets("Sheet1").Select End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 123.204.197.252