从Excel 2016到2013的数据透视表创建

Question

我创建了一个代码，该代码基于一组数据在新工作表中创建了数据透视表。问题在于，有时它会跳过数据透视表的创建。 跳过仅发生在excell 2013中，在excel 2016上它总是创建数据透视表。

我检查了大小，但每个示例会创建100.000个较大的文件，而一次跳过为80.000

'Define Data Range
lastrow = DSheet.Cells(rows.Count, 2).End(xlUp).Offset(1, 0).Row
LastCol = DSheet.Cells(1, Columns.Count).End(xlToLeft).Column
Set PRange = DSheet.Cells(1, 1).Resize(lastrow, LastCol)


'Define Pivot Cache
Set PCache = ActiveWorkbook.PivotCaches.Create _
(SourceType:=xlDatabase, SourceData:=PRange, _
        Version:=xlPivotTableVersion15). _
CreatePivotTable(TableDestination:=PSheet.Cells(1, 1), _
TableName:=NameTable)


'Insert Blank Pivot Table
Set PTable = PCache.CreatePivotTable _
(TableDestination:=PSheet.Cells(1, 1), TableName:=NameTable)

它应该在新工作表中创建一个数据透视表