想調出資料透視表，就錄了一個宏，但運行時總彈出‘5’，無效的程序呼叫或引數”。十分困惑
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"BMW!R1C1:R1048576C2", Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="BMW!R1C7", TableName:="資料透視表1", DefaultVersion:= _
xlPivotTableVersion15
Sheets("BMW").Select
Cells(1, 7).Select
With ActiveSheet.PivotTables("資料透視表1").PivotFields("Summe")
.Orientation = xlRowField
.Position = 1
End With
uj5u.com熱心網友回復：
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _"BMW!R1C1:R1048576C2", Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="BMW!R1C7", TableName:="資料透視表1", DefaultVersion:= _
xlPivotTableVersion15
確認一下，你的原資料，行數是否有1048576 這么多。我懷疑有一堆空行。
還有，你選的資料范圍只有C1和C2兩列，但為啥后面會出現C7的引數。
僅從代碼直觀的地方提出兩點疑再檢查看看，沒有實際操作驗證，不一定是我說的這個兩個地方的問題。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/45287.html
標籤：VBA
上一篇：Winsock1_DataArrival 中使用doevents出現Out of stack space錯誤
下一篇：請教如何實作這個