返回列表下一主題上一主題發帖

[發問] excel 2007 錄製的樞紐在2003無法使用

dragonbx

中學生 Rank: 2

帖子: 86
主題: 32
精華: 0
積分: 123
點名: 0
作業系統: WINDOWSXP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-28
最後登錄: 2020-7-13

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-10-31 17:45 | 顯示全部帖子

[發問] excel 2007 錄製的樞紐在2003無法使用

請教各位先進

  小弟我在2007錄製的樞紐分析，在2003年無法使用

請問是哪裡有問題呢？？

------------------------------------------------------------------------------------------------------------

         Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("C:D").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
      "整理!R1C3:R65536C4", Version:=xlPivotTableVersion10).CreatePivotTable _
      TableDestination:="整理!R2C9", TableName:="樞紐分析表1", DefaultVersion:= _
      xlPivotTableVersion10
Sheets("整理").Select
Cells(2, 9).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("料號+批號")
      .Orientation = xlRowField
      .Position = 1
End With

ActiveSheet.PivotTables("樞紐分析表1").AddDataField ActiveSheet.PivotTables("樞紐分析表1" _
      ).PivotFields("數量"), "計數 - 數量", xlCount
ActiveWorkbook.ShowPivotTableFieldList = False
Columns("I:J").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("轉換").Select
ActiveWindow.SmallScroll Down:=-9
Range("A1").Select
ActiveSheet.Paste
Sheets("整理").Select
Range("J4").Select

Range("J4:J19864").Select
Application.CutCopyMode = False
With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("計數 - 數量")
      .Caption = "加總 - 數量"
      .Function = xlSum
End With

------------------------------------------------------------------------------------------------------------