创build数据透视表时运行时错误“1004”

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

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'：

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

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

只是想知道是否有办法通过VBA获取数据透视表名称，而不是在代码中给出表名（即TableName：=“数据透视表2” ），这是大多数时间不一样。

有人可以帮助我吗？