vba创建数据透视表，原本正常的宏变成“运行时错误5；无效的过程调用或函数”

andi2050

Sub CreatePivotTable()
Dim ptcache As PivotCache
Dim pt As PivotTable
'设置区域
Set ptcache = ActiveWorkbook.PivotCaches.Add(xlDatabase, Sheet1.Range("A1").CurrentRegion.Address)
'增加透视表到新的工作表
'如果你不想加到新的工作表去，比如你想加到另一个工作表的C1单元格去，那么你可以这样写：
'Set pt = ptcache.CreatePivotTable(Sheet2.Range("c1"), "PT1")
Set pt = ptcache.CreatePivotTable("", "PT1")
With pt
.PivotFields("库存状态").Orientation = xlPageField
.PivotFields("货位").Orientation = xlPageField '设定页字段

.PivotFields("品项").Orientation = xlRowField
.PivotFields("条形码").Orientation = xlRowField
.PivotFields("物料编号").Orientation = xlRowField
.PivotFields("物料名称").Orientation = xlRowField
.PivotFields("保质期").Orientation = xlRowField
.PivotFields("批次").Orientation = xlRowField
'设定行字段
.PivotFields("数量").Orientation = xlDataField '设定数据字段
'设定数据字段的公式默认为求和
End With
End Sub

在新建的没有建立过数据透视表的表格上运行上述代码是没问题的，可转移到相同表格布局的另外一个xls文件就不行了。两个都是用xls格式，用wps打开的。
库存状态这一行代码还能正常运行，但下面代码就全不行了。