PivotCache.Create无法处理大范围

Question

这个运行正常：

Dim pc As PivotCache
With tgtBook.Sheets("Data")
    Set pc = tgtBook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Range("A1:B5"), Version:=Excel.xlPivotTableVersion14) ' Range("myMthdata"))
End With

抛出运行时错误“13”类型错配：

Dim pc As PivotCache
With tgtBook.Sheets("Data")
    Set pc = tgtBook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Range("A1:B500000"), Version:=Excel.xlPivotTableVersion14) ' Range("myMthdata"))
End With

唯一的区别是SourceData中的行数。这是一个错误，还是有一个逻辑的原因背后似乎不一致？

编辑

在进一步的研究中，B65536似乎会起作用，而任何更大的东西都会出错。这是Excel旧版本中的最大行数，而不是excel-2010。感觉像只虫子。

有人知道解决办法吗？

Answer 1

根据我的经验，如果使用R1C1样式引用而不是Range对象或A1样式字符串，效果会更好：

Dim pc As PivotCache
    Set pc = tgtBook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Data!R1C1:R500000C2", Version:=Excel.xlPivotTableVersion14)