[問題] VBA 樞紐分析表在迴圈中的問題

作者: homelife (SKY)   2019-02-27 02:45:37
軟體: Office 365 Excel
目前寫了一個巨集,流程大約如下:
我有八個事先寫好規則的工作表,與一個來源資料工作表,
巨集會根據八個含規則工作表內容對來源資料進行八次樞紐(樞紐包在迴圈內)
每次樞紐完會把樞紐工作表內的資料全部複製到新的結果工作表,並且把樞紐工作表刪除
(因為樞紐工作表只是用來計算)
我的想法是用這個方式一次產出八個最終的結果工作表
目前的進度是功能都已經寫完,也可以順利對來源資料表進行一次處理,也就是說
不用迴圈都沒問題,但是如果我用迴圈把整個流程包起來就會在樞紐的步驟卡住。
(把迴圈拿掉的話,手動跑八次不同規則的巨集不會有錯誤,但是放迴圈的話跑到第二輪
就會在樞紐處停住)
附上產生樞紐部分的程式:
'會在下面Set PTCachc這行卡住
Set PTCache = ThisWorkbook.PivotCaches.Add _
(SourceType:=xlDatabase, _
SourceData:=Datasheet.Range(Cells(1, 1), Cells(workingRow,
workingColumn)))
Set PT = PTCache.CreatePivotTable _
(TableDestination:="", _
TableName:=ReportType)
作者: soyoso (我是耀宗)   2019-02-27 06:54:00
sourcedata部分改為range(datasheet.cells(1,1),datasheet.cells(workingrow,workingcolumn))或是set ptcache上方datasheet工作表select或activate這樣sourcedata內就可省略datasheet.

Links booklink

Contact Us: admin [ a t ] ucptt.com