麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] pivot 無法指定 Sheet [打印本頁]

作者: anny8888 時間: 2013-10-16 03:52 標題: pivot 無法指定 Sheet

本帖最後由 GBKEE 於 2013-10-16 14:46 編輯

利用 VBA  寫 PIVOT 無法指定CREATE 到 SHEET 2, 請問是哪裏有問題.
會一直卡在
Set PT = PTCache.CreatePivotTable _
      (TableDestination:=sheets("pivot2").range("A1"), TableName:="PivotTable1")

========================================
Sub crePT()
Dim PTCache As PivotCache
Dim PT As PivotTable

Windows("AA").Activate
'Sheets("Sheet2").Name = "Pivot2"
Set used1 = Sheets("details").UsedRange

Set PTCache = ThisWorkbook.PivotCaches.Add _
      (SourceType:=xlDatabase, _
      SourceData:=used1)

Set PT = PTCache.CreatePivotTable _
      (TableDestination:=sheets("pivot2").range("A1"), TableName:="PivotTable1")

With PT
  .PivotFields("Product").Orientation = xlRowField
  .PivotFields("account").Orientation = xlRowField
  .PivotFields("FSE/FPE").Orientation = xlRowField
.PivotFields("OT").Orientation = xlDataField

  End With

Application.CommandBars("PivotTable").Visible = False

End Sub

作者: stillfish00 時間: 2013-10-16 13:51

回復 1# anny8888
1. 檢查used1範圍內是否每欄首列都含標題名稱。
2. 樞紐分析表不可重疊，檢查sheets("pivot2").range("A1")是否有已存在樞紐分析表，若有需先刪除。

作者: anny8888 時間: 2013-10-16 14:39

回復 2# stillfish00
已確認
1. USED1 的首列, 均有資料
2.指定的SHEET中完全沒有資料

謝謝.

作者: stillfish00 時間: 2013-10-16 15:51

回復 3# anny8888
附上檔案/案例看看
執行時是否跨工作簿?

作者: genes 時間: 2013-10-17 01:50

回復 1# anny8888

'Sheets("Sheet2").Name = "Pivot2"這個說明了p應該是大楷P,不是pivot2

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)