macro 问题

roseinsummer

请大家帮看一下下面这个routine的问题在哪里，系统说有object defined error, 但是我找不出来。

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R1C1:R3122C13", Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:="Sheet2!R1C1", TableName:="PivotTable4", DefaultVersion _
        :=xlPivotTableVersion14

roseinsummer

ok, I have known what went wrong. I state the problem here for those who may have this problem and don't know what to do. The routine is to create a new pivot table on an existing sheet.  But if it is rerun again for updated data source, another new pivot table will be created with a different name, e.g. PivotTable 5. The name is different from the current name-PivotTable 4. So when you need to update the pivot table with the updated data, you have to do is to create an update routine.  This will solve the problem.  Hope it helps.