错误 1004：使用 vba 创建数据透视表时引用无效

Question

我在我的 excel 文件中有一个包含 3 列（id、type、month）的工作表。

知道很多项目出现不止一次，我需要获取每个 id 每月的出现次数，然后获取 id 出现两次、出现 3 次的次数，...

有人告诉我，数据透视表是解决方案。所以我用宏记录器创建了一个数据透视表。当我尝试执行宏时，它向我发送错误 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

我正在使用 Office 2007

感谢任何和所有的帮助。

谢谢

Answer 1

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

1. 正如您所说，数据透视表是显而易见的选择，但我不确定您为什么认为 VBA 会阻止您使用数据透视表？一旦掌握了窍门，在 VBA 中操作数据透视表就相对容易了——宏记录器对于学习对象模型的来龙去脉非常有用，或者 here 是入门教程。

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