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

各位大神: 我在錄製樞紐的巨集後,再次執行時,就被系統告知有問題,請問要怎麼修改才能執行成功? 程式碼如下: Sub 巨集6() 巨集6 巨集 ​ ​ ​ ​ Range("F3:G3855").Select ​ ​ ​ Sheets.Add ​ ​ ​ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ ​ ​ ​ ​ ​ ​ ​ "MRP2!R3C6:R3855C7",... 顯示更多 各位大神:
我在錄製樞紐的巨集後,再次執行時,就被系統告知有問題,請問要怎麼修改才能執行成功? 程式碼如下:
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 個解答 2