Excel 错误1004:使用vba创建透视表时引用无效

我在excel文件中有一个包含3列（id、类型、月份）的工作表

知道许多项目出现不止一次，我需要得到每个id每月发生的次数，然后得到id出现两次、三次的次数

我被告知透视表是解决方案。所以我用宏记录器创建了一个透视表。当我尝试执行宏时，它会向我发送错误1004：无效引用

这里是我的宏：

Sub Relivr()
'
Dim LastRow As Long

LastRow = ActiveWorkbook.Worksheets("Delivery").Range("A65536").End(xlUp).Row

'the error comes from this line
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="'Delivery'!R1C1:R" & LastRow & "C4", Version:=xlPivotTableVersion12).CreatePivotTable TableDestination:="'Delivery'!R1C13", TableName:="Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion12*
    Sheets("Delivery").Select
    Cells(1, 13).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("ID")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
        "Month")
        .Orientation = xlColumnField
        .Position = 1
    End With

    ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique2").PivotFields("type"), _
        "Nb delivries", xlCount

    ActiveSheet.PivotTables("Tableau croisé dynamique2").RowGrand = False

    Range("H3").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(RC[6]:R[12342]C[6],""=2"")"
    Range("H4").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(R[-1]C[7]:R[12341]C[7],""=2"")"

End Sub

我正在使用Office2007

非常感谢您的帮助

---

谢谢

有两种方法可以做到这一点：

正如您所说，透视表是一个明显的选择，但我不确定您为什么认为VBA会阻止您使用透视表？一旦掌握了窍门，在VBA中操纵数据透视表就相对容易了-宏记录器对于学习对象模型的细节非常有用，或者是入门教程

或者，您可以使用ADO连接到数据，并使用SQL查询来获取所需的信息。请注意，这需要在单独的工作表上对数据进行适当的格式化，但这可以作为程序的一部分进行管理。微软有

---

感谢您的回复，只是我不知道如何从vba操作数据透视表。你能给我一个例子代码或一个链接，我可以找到如何做。我有一个快速的谷歌，虽然有很多“让你开始”的代码例子（我添加了一个链接），但实际上没有一个好的结束教程。正如我所说，我学会了使用宏录制器，至少在这个例子中，这确实是一个很好的学习方法。你必须使用VBA吗？这种类型的表只需使用数据透视表就非常容易了，不需要任何代码。不幸的是，我不得不将vba作为程序的一部分来使用。