vba - 在 Excel 2013 而非 Excel 2010 中基于 Power Pivot 创建数据透视表

Question

下面的代码适用于 Excel 2013，但并不总是适用于 Excel 2010。它会在 set pvtSource 上引发错误.

错误是:

The error quotes "Run-time error '-2147417848 (80010108)': method 'createpivottable' of object 'pivotcache' failed. "

有时它可以正常工作而不会引发错误。我不知道为什么或如何对这段代码进行故障验证。

'Create temp sheet
Dim wksSource As Worksheet
Set wksSource = wbkSource.Sheets.Add(After:=Sheets(Worksheets.Count))

'Create new cache
Dim pvcSource As PivotCache
Dim pvtSource As PivotTable
If Application.Version = "15.0" Then
    'Create pivot cache
    Set pvcSource = wbkSource.PivotCaches.Create( _
    SourceType:=xlExternal, _
    SourceData:=ActiveWorkbook.Connections("ThisWorkbookDataModel"), _
    Version:=5)

    wbkSource.Activate
    wksSource.Activate

    'Create PivotTable
    Set pvtSource = pvcSource.CreatePivotTable( _
    TableDestination:=ActiveCell, _
    DefaultVersion:=5)

ElseIf Application.Version = "14.0" Then
    'Create pivot cache
    Set pvcSource = wbkSource.PivotCaches.Create( _
    SourceType:=xlExternal, _
    SourceData:=ActiveWorkbook.Connections("ThisWorkbookDataModel"), _
    Version:=xlPivotTableVersion14)

    wbkSource.Activate
    wksSource.Activate

    'Create PivotTable
    Set pvtSource = pvcSource.CreatePivotTable( _
    TableDestination:=ActiveCell, _
    DefaultVersion:=xlPivotTableVersion14)

End If

Answer 1

VBA 脚本明确不支持 Power Pivot for Excel 2010。