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

2^#

發表於 2013-11-2 00:25 | 只看該作者

pivot table裡的東東是不同的

TOP

dragonbx

中學生 Rank: 2

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

3^#

發表於 2013-11-4 11:49 | 只看該作者

回復 2# genes

請問大大這該如何解決呢？

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

TOP

genes

中學生 Rank: 2

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

4^#

發表於 2013-11-4 13:10 | 只看該作者

回復 3# dragonbx

家中只有2003,要回到公司才可用2007進行測試

TOP

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