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

【问题标题】：Errors when creating a macro to create a pivot table with a dynamic named range创建宏以创建具有动态命名范围的数据透视表时出错
【发布时间】：2016-11-25 23:09:46
【问题描述】：

我正在尝试使用宏从长度变化的工作表中创建数据透视表。使用动态命名范围来捕获但得到：

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

“DATA”是我的动态范围命名范围。已更正以下内容，现在收到“对象'_Global'的运行时错误'1004'方法'范围'失败，因为我没有引用特定工作表？

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

【问题讨论】：

标签： excel vba macros pivot-table

【解决方案1】：

您必须将 Range 对象提供给 SourceData 参数

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

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

【讨论】：