運行時錯誤1004" 錯誤消息

Question

我跑我的微距但錯誤信息彈出，並強調此行

ActiveSheet.PivotTables("PivotTable1").PivotSelect "'Cust Name'[All]", _ 
     xlLabelOnly + xlFirstRow, True 

誰能解決這個

這裏是我的代碼：？

ActiveSheet.PivotTables("PivotTable1").PivotSelect "'Collection Site'[All]", _ 
     xlLabelOnly + xlFirstRow, True 
ActiveSheet.PivotTables("PivotTable1").PivotFields("Collecti‌​on Site"). _    
     PivotFilters.Add2 Type:=xlValueIsGreaterThan, DataField:=ActiveSheet. _ 
     PivotTables("PivotTable1").PivotFields("Sum of Total Value"), Value1:=50000 
ActiveSheet.PivotTables("PivotTable1").PivotSelect "'Cust Name'[All]", _ 
     xlLabelOnly + xlFirstRow, True 

Answer 1

estas intentando copiar y pegar datas filtrados，por eso el error 1004.