Excel Pivot R1C1 – 内存过载

我正在使用以下代码通过VBA创build数据透视表：

Dim Pivot30D As Worksheet Set Pivot30D = Sheets.Add Pivot30D.Name = "Pivot30D" Dim Kelekt As Range Set Kelekt = Range(Range("A2"), Range("A2").End(xlDown).End(xlToRight)) Dim KelektAddress As String KelektAddress = Kelekt.Parent.Name & "!" & Kelekt.Address(True, True, xlR1C1) ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ KelektAddress, Version:=xlPivotTableVersion15). _ CreatePivotTable TableDestination:="Pivot30D!R1C1", TableName:="PivotTable1" _ , DefaultVersion:=xlPivotTableVersion15 

在这里，Kelekt是我创造枢轴的范围。 这在理论上会工作得很好，除非我得到一个快速的内存过载。 内存不足。 另一方面，如果我使用“R2C1：R191995C24”（带引号）而不是Kelekt，我可以创build这个数据透视表。 我所需要的（希望）做这项工作是把Kelekt转换成RC符号并且通过它。

我怎么做？ 否则，我该如何使这个代码工作，否则？

编辑：最新的错误是数据透视表字段名称是无效的

Answer 1

build议的更改：

 Dim Kelekt As Range Set Kelekt = Range(Range("A2"), Range("A2").End(xlDown).End(xlToRight)) dim KelektAddress as String KelektAddress = Kelekt.Parent.Name & "!" & Kelekt.address(true, true, xlR1C1) 

在SourceData:=参数中使用KelektAddress而不是Kelekt 。