VBA：創建數據透視表時出錯

Question

我正在嘗試使用以下代碼在VBA（Excel 2013）中創建數據透視表

Dim pt As PivotTable
Dim cache As PivotCache

Sheets("data").Select
Set cache=ActiveWorkbook.PivotCaches.Create(xlDatabase,Cells(1,1).CurrentRegion)

Sheets("pivot").Select
Set pt = cache.CreatePivotTable("R4C")

我在行設置pt中遇到錯誤。 請幫助確定錯誤。

Answer 1

您是正確的“ RC”字符串有效...但您需要完整的參考！

要使其正常工作，請使用以下命令：

Dim pt As PivotTable
Dim cache As PivotCache

Set cache = ActiveWorkbook.PivotCaches.Create(xlDatabase, Sheets("data").Cells(1, 1).CurrentRegion)

Set pt = cache.CreatePivotTable("'pivot'!R4C")

請檢查目標處是否還有另一個對象（可能導致錯誤）。