[發問] 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

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

樓主熱帖

80 字節以內
不支持自定義 Discuz! 代碼

genes

中學生 Rank: 2

帖子: 45
主題: 1
精華: 0
積分: 51
點名: 0
作業系統: windows 7
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2013-4-16
最後登錄: 2013-12-30

5^#

發表於 2013-11-5 23:36 | 只看該作者

試下面
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("C

").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
      "整理!R1C3:R65536C4").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

TOP

genes