PivotCaches.Add不匹配错误 - 为什么之前没有发生？

Question

运行下面的代码时出现不匹配错误13。整个代码模块已经使用并且大部分时间都保持不变，最近我没有改变任何东西，而且我是该工作簿的唯一用户。

非工作代码：

Private Sub CreateMIAPivots(MIABook As Workbook, MIASheet As Worksheet, MaxRow As Long) 

Dim wksPivotSheet As Worksheet 
Dim PivotRange As Range 

    Set wksPivotSheet = MIABook.Sheets.Add 
    wksPivotSheet.Name = "Summary" 
    wksPivotSheet.Tab.Color = RGB(255, 0, 0) 

    Set PivotRange = MIASheet.Range("A1:Y" & MaxRow) 
    With MIABook.PivotCaches.Add(xlDatabase, PivotRange) 'Error sets here 
    'More code below 

MaxRow是可变的，但我已经有大约600检查的话对一个文件约7000行，而Range对象进行有效的参考，如果我尝试以任何其他方式与其进行交互。

我在这里回顾了一些相关问题上的SO：

• I am only working in 2003, and the error is different, anyway.
• I have confirmed I have no other PivotCaches in the workbook before attempting to create a new one.
• I have successfully gotten this work using the accepted solution here:Use named ranges (see follow-up code below)

变通代码：

Private Sub CreateMIAPivots(MIABook As Workbook, MIASheet As Worksheet, MaxRow As Long) 

Dim wksPivotSheet As Worksheet 
Dim pc As PivotCache 
Dim lVBAVer As Long 
Dim PivotRange As Range 

    lVBAVer = CLng(Application.Version) 

    Set wksPivotSheet = MIABook.Sheets.Add 
    wksPivotSheet.Name = "Summary" 
    wksPivotSheet.Tab.Color = RGB(255, 0, 0) 

    Set PivotRange = MIASheet.Range("A1:Y" & MaxRow) 

    MIABook.Names.Add Name:="PivotRange", RefersTo:=PivotRange 

    'Using answer from https://stackoverflow.com/a/11868231/698590 (StackOverflow) 
    'as a guide for version checking. Original answer of 
    'CLng(Application.VBE.Version) did not work here. 
    #If lVBAVer <= 11 Then 
     Set pc = MIABook.PivotCaches.Add(xlDatabase, "PivotRange") 
    #Else 
     Set pc = MIABook.PivotCaches.Create(xlDatabase, "PivotRange") 
    #End If 
    With pc 
    'More code below 

我现在的问题是为什么是上面的解决方案必要的？看起来，我并不是唯一一个像我最初一样使用PivotCaches时突然停止工作的完美代码的人。那么这里真正的根本原因是什么？什么导致代码停止运作？

我想知道如果可能的话，我可以防止未来出现意外错误。我知道答案可能在于我在代码/工作簿的其他地方做过的事情（这里没有引用），但是我不能在我的生活中找出发生了什么变化。

Answer 1

所以你已经知道的问题与此有关：http://answers.microsoft.com/en-us/office/forum/office_2010-customize/pivotcache-type-mismatch-error-when-65536-rows/0827889e-b671-e011-8dfc-68b599b31bf5?msgId=4e3a2b20-7a72-e011-8dfc-68b599b31bf5

的原因似乎是透视表的VBA语法/用法改为从2003年到2007/2010。

所以使用这种常见的语法来设置一个命名的范围与本工作簿：

MIABook.Names.Add Name:="PivotRange", RefersTo:=PivotRange 

这部分代码：

#If lVBAVer <= 11 Then 
    Set pc = MIABook.PivotCaches.Add(xlDatabase, "PivotRange") 
#Else 
    Set pc = MIABook.PivotCaches.Create(xlDatabase, "PivotRange") 
#End If 

正在检查，看看是否lVBAver小于或者等于11，那么它使用以下语法：

Set pc = MIABook.PivotCaches.Add(xlDatabase, "PivotRange") 

如果它是新版本，那么它使用的语法如下：

Set pc = MIABook.PivotCaches.Create(xlDatabase, "PivotRange") 

有时候，你必须接受微软并不完美（笑讽刺），他们做愚蠢的事情就像所有其他的公司。无论如何，这是我的理论。祝你好运。