运行时错误“1004”，而创建一个数据透视表(Runtime error '1004'

我想从一个工作簿将数据复制到另一个工作簿后创建数据透视表。 下面是代码。

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，有时显示PivotTable2。

我也收到以下错误信息

“运行时错误1004”：

数据透视表字段名无效。 要创建一个数据透视表，则必须使用组织与标列的列表数据。 如果要更改数据透视表字段的名称，您必须为字段中键入一个新名称。

其实，我从A1的数据：X和所有列都列标题，但还是我收到此错误信息。

只是想知道有没有办法通过VBA来获得数据透视表的名称，而不是给代码表名（即表名：=“PivotTable2”），这是不一样的大部分时间。

是否有人可以帮助我在这？

文章来源: Runtime error '1004' while creating a pivot table