vba - 运行时错误“5”无效的过程调用或参数

Question

我对这部分代码有一个可怕的问题......我到处检查并寻找了许多选项，但似乎没有任何工作......有人知道为什么我在这里不断收到错误吗？我正在关注其中一个视频课程，即使代码看起来完全相同（源数据部分除外）我仍然明白...感谢任何提示...我在设置对象变量时收到此运行时错误点"

Sub CreatePivotTableandPivotCache()

Dim pc As PivotCache
Dim pt As PivotTable


Set pc = ThisWorkbook.PivotCaches.Create( _
    SourceType:=xlDatabase, _
    SourceData:=Sheet1.Name & "!" & Worksheets("Sheet1").Range("A1").CurrentRegion.Address, _
    Version:=xlPivotTableVersion15)

Worksheets.Add
Range("A3").Select

Set pt = pc.CreatePivotTable( _
    TableDestination:=ActiveCell, _
    TableName:="KPI")

End Sub

标签： vbaexcel