大家好我正在录制一个宏。我在数据透视表中转换原始数据并使用宏自动化它。但每当我按下按钮时都会出现错误1004:应用程序定义或对象定义的错误。
以下是我在VBA中的代码示例。
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"'Sheet1!R4C1:R279594C33'", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="'Sheet8!R3C1'", TableName:="'PivotTable3'", DefaultVersion _
:=xlPivotTableVersion14
我希望你能帮助我这个人。
非常感谢。
答案 0 :(得分:0)
您的SourceData
和TableDestination
中的撇号不正确。撇号应仅位于工作表名称周围,并且不包括朝向末尾的行/列。所以,你得到了这个:
"'Sheet1!R4C1:R279594C33'"
虽然它应该是这个
"'Sheet1'!R4C1:R279594C33"
这同样适用于TableDestination,它应该是"'Sheet8'!R3C1"
。
另外,请注意此代码只能使用一次!这是因为您为新创建的PivotCache
“PivotTable3”命名。由于该名称只能一个 PivotCache
,因此上述代码的第二次运行将自动失败(除非您在运行上述代码之前删除“PivotTable3”)。