VBA 创建数据透视表错误 1004

Question

我正在尝试让一个程序为我创建几个数据透视表（因为我必须每周/每月执行一次）但数据类型相同。

根据几个网站，我复制了一些代码并编辑了一些代码如下：

Private Sub CommandButton1_Click()

'Declaration



'Creates new worksheet

Dim sht As Worksheet
Dim pvtCache As PivotCache
Dim pvt As PivotTable
Dim StartPvt As String
Dim SrcData As String
Dim DataRange As Range

'Create a new worksheet
  Set sht = Sheets.Add
  sht.Name = "EUPS Report"

'Determine the data range you want to pivot
  Set DataRange = Application.InputBox("Please Select the Data (Please select by pressing any cell in the table then pressing ctrl+a)", Default:=Selection.Address, Type:=8)
  SrcData = sht.Name & "!" & DataRange.Address(ReferenceStyle:=xlR1C1)

'Where do you want Pivot Table to start?
'  StartPvt = "'" & sht.Name & "!" & sht.Range("A15").Address(ReferenceStyle:=xlR1C1) & "'"

'Create Pivot Cache from Source Data
  Set pvtCache = ActiveWorkbook.PivotCaches.Create( _
    SourceType:=xlDatabase, _
    SourceData:=SrcData)

'Create Pivot table from Pivot Cache
  Set pvt = pvtCache.CreatePivotTable( _
    TableDestination:=Worksheets("EUPS Report").Range("A15"))
'   TableName:="PivotTable1")

End Sub

但是，我遇到了这个错误：

运行时错误“1004”：

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

我无法向您显示我的数据，因为它是公司信息，但它是带有列标题但没有行标题的常规数据表。我已经在其他数据上测试了这段代码，但它也不起作用。而且我已经使用手动创建的数据透视表测试了我的数据并且它们确实有效，所以这是代码的问题。

请让我知道出了什么问题。谢谢！

Answer 1

使用 Excel 表格对象存储数据，然后您可以按名称引用表格作为数据透视表的来源。表格会随着数据的变化而增长和缩小，您只需在数据发生变化时刷新数据透视表即可。

您可以手动将数据复制并粘贴到表中，也可以使用 Power Query 从几乎任何数据源获取数据。 Power Query 是 Microsoft 为 Excel 2010 和 2013 提供的免费加载项，它作为 Get&Transform 内置在 Excel 2016 中。

这里的想法是，只刷新数据比每周都从头开始构建数据透视表更容易、更有效。这确实违背了数据透视表的目的。更聪明地工作，而不是更努力地工作。