创建宏以创建具有动态命名范围的数据透视表时出错

Question

我正在尝试使用宏来创建长度发生变化的工作表。使用动态命名范围捕获但得到的是：

  

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

＆＃34; DATA＆＃34;是我的动态范围命名范围。已更正到下面，现在得到＆＃34;运行时错误＆＃39; 1004＆＃39;方法＆＃39;范围＆＃39;对象＆＃39; _Global＆＃39;失败，因为我没有引用特定的表格？

With ActiveWorkbook.Names("DATA") .Name = "DATA" .RefersToR1C1 = _ "=OFFSET('Closed Cases'!R1C2,0,0,COUNTA('Closed Cases'!C6),25)" .Comment = "" End With ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ Range("DATA"), Version:=xlPivotTableVersion14).CreatePivotTable TableDestination:= _ "'External Analytics!'R1C15", TableName:="PivotTable3", DefaultVersion:= _ xlPivotTableVersion14 Sheets("External Analytics").Select Cells(1, 1).Select

Answer 1

您必须向Range参数

提供SourceData个对象

如果“数据”是您要键入的名为Range的工作簿范围：

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
Range("Data"), Version:=xlPivotTableVersion14).CreatePivotTable TableDestination:= _
"'External Analytics!'R1C15", TableName:="PivotTable3", DefaultVersion:= _
xlPivotTableVersion14