在 VBA 数据透视表模板上定义源数据

Question

我在 Spreadsheetguru 上找到了此代码，但我在编辑代码时遇到了问题。

Sub CreatePivotTable()
'PURPOSE: Creates a brand new Pivot table on a new worksheet from data in the ActiveSheet
'Source: www.TheSpreadsheetGuru.com

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

'Determine the data range you want to pivot
  SrcData = ActiveSheet.Name & "!" & Range("A1:R100").Address(ReferenceStyle:=xlR1C1)

'Create a new worksheet
  Set sht = Sheets.Add

'Where do you want Pivot Table to start?
  StartPvt = sht.Name & "!" & sht.Range("A3").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:=StartPvt, _
    TableName:="PivotTable1")

End Sub

为什么我无法将 SrcData 定义为 Worksheets("SHEETNAME").Range("A1:A100")？它返回类型 13 错误：不匹配。我尝试在线查找答案，大多数示例都引用了 ActiveSheet.Range 的 SrcData 而不是定义的工作表。

谢谢！

如果您能向我展示一个示例枢轴如何用于此工作表上的工作表（“PivotExp”），那也会有很大帮助。http://imgur.com/TShQ1ls

非常感谢！

Answer 1

为什么我无法将 SrcData 定义为 Worksheets("SHEETNAME").Range("A1:A100")?

数据透视表适用于二维数据（表格形式），即行和列，但对于 A1:A100，您仅提供一维数据（列表形式）。您还需要根据语法规则分配源数据。

It returns a type 13 error: mismatch.

由于上述原因导致不匹配错误。

如果你能告诉我一个例子是如何枢轴的，那也会很有帮助 将为此工作表（“PivotExp”） 表。http://imgur.com/TShQ1ls

由于某种原因，图像不可见，但您可以访问以下示例链接：http://analysistabs.com/excel-vba/pivot-tables-examples/，其中显示了如何使用 VBA 代码创建数据透视表。
由于您给定的代码缺少很多与 Pivot 相关的信息，因此不会形成 Pivot，但是通过访问上面的链接，您可以了解其中缺少什么。