将数据透视表源数据更改为Excel表
我正在写一个简单的macros来改变源数据到邻居工作表中的一个表,我得到以下错误:
运行时错误“438”:对象不支持此属性或方法
该表名为“OEE 2013”,位于工作表“2013 OEE Data”
数据透视表名为“数据透视表1”,位于工作表“2013 OEE Pivot”
数据透视表目前引用外部工作簿的数据,我想保持相同的格式和引用表“OEE 2013”创build一个新的数据透视表可能更容易,但更改源数据似乎是一个更快的解决scheme。 这将作为更大macros观的一部分定期重复。
Sub change_pivot_source() Worksheets("2013 OEE Pivot").PivotTables("PivotTable1").ChangePivotCaches _ ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _ SourceData:="OEE_2013", Version:=xlPivotTableVersion14) End Sub
错误消息是绝对有效的:)
将.ChangePivotCache
更改为.ChangePivotCache
你可能想看到MSDN链接