傑哥 發問時間: 電腦與網際網路軟體 · 5 個月前

Excle 用巨集錄製樞紐分析後,程式碼出現錯誤?

各位大神:

我在錄製樞紐的巨集後,再次執行時,就被系統告知有問題,請問要怎麼修改才能執行成功? 程式碼如下:

Sub 巨集6()

巨集6 巨集

​ ​ ​ Range("F3:G3855").Select

​ ​ ​ Sheets.Add

​ ​ ​ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _

​ ​ ​ ​ ​ ​ ​ "MRP2!R3C6:R3855C7", Version:=xlPivotTableVersion10).CreatePivotTable _

​ ​ ​ ​ ​ ​ ​ TableDestination:="工作表7!R3C1", TableName:="樞紐分析表2", DefaultVersion:= _

​ ​ ​ ​ ​ ​ ​ xlPivotTableVersion10

​ ​ ​ Sheets("工作表7").Select

​ ​ ​ Cells(3, 1).Select

​ ​ ​ With ActiveSheet.PivotTables("樞紐分析表2").PivotFields("Hold_Code")

​ ​ ​ ​ ​ ​ ​ .Orientation = xlColumnField

​ ​ ​ ​ ​ ​ ​ .Position = 1

​ ​ ​ End With

​ ​ ​ With ActiveSheet.PivotTables("樞紐分析表2").PivotFields("Pellicle PartNo")

​ ​ ​ ​ ​ ​ ​ .Orientation = xlRowField

​ ​ ​ ​ ​ ​ ​ .Position = 1

​ ​ ​ End With

​ ​ ​ ActiveSheet.PivotTables("樞紐分析表2").AddDataField ActiveSheet.PivotTables("樞紐分析表2" _

​ ​ ​ ​ ​ ​ ​ ).PivotFields("Hold_Code"), "計數 - Hold_Code", xlCount

​ ​ ​ Range("M12").Select

End Sub

2 個解答

評分
  • 5 個月前
    最佳解答

    建議先下一個刪除程序把樞紐分析表頁整個刪除

    Sheets("工作表2").Select

    Cells.Select

    Selection.Delete Shift:=xlUp

    範圍可設最大筆數例999999

    "工作表1!R1C1:R999999C15"

    樞紐分析表不需每次新建...只要更新來源資料後做一個全部重整就可以

    ActiveWorkbook.RefreshAll

    • 傑哥5 個月前檢舉

      謝謝精闢的回覆,因為我對VBA語法不孰,所以依您建議放到我原本的程式中,會長的什麼樣子?先感謝您再次告知

    • 登入以對解答發表意見
  • 匿名使用者
    5 個月前

    謝謝精闢的回覆,因為我對VBA語法不孰,所以依您建議放到我原本的程式中,會長的什麼樣子?先感謝您再次高知

    • 登入以對解答發表意見
還有問題?馬上發問,尋求解答。