创建数据透视表时出现运行时错误“1004”

Question

我试图在将数据从一个工作簿复制到另一个工作簿之后创建一个数据透视表。这是代码。

Dim ws As Worksheet
Set ws = Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "PIVOT_RANGE", Version:=xlPivotTableVersion14). _
        CreatePivotTable TableDestination:=ws.Name & "!R1C1", TableName:= _
        "PivotTable2", DefaultVersion:=xlPivotTableVersion14

我每次都看到不同的数据透视表名称。有时它显示 PivotTable1 ，有时显示数据透视表2 。

我也收到以下错误消息

'运行时错误1004'：

数据透视表字段名称无效。若要创建数据透视表，您必须使用组织为带有标记列的列表的数据。如果要更改数据透视表字段的名称，则必须为该字段键入新名称。

我实际上有来自A1：X的数据，所有列都有列标题，但我仍然收到此错误消息。

只是想知道有没有办法通过VBA获取数据透视表名称，而不是在代码中提供表名（即 TableName：=“PivotTable2”），这与大多数情况不同次。

有人可以帮我解决这个问题吗？