[问题] 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