创建数据透视表的运行时错误1004

Question

我正在尝试从.csv文件创建数据透视表。 但是我遇到了运行时错误1004：在代码的ActiveWorkbook部分，引用无效。

有什么建议吗？

我的代码如下

Sub test()
Dim ws As Worksheet

Set ws = ActiveSheet

Sheets.Add
ws.Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    ws.Name & "R1C1:R101643C21", Version:=xlPivotTableVersion10). _
    CreatePivotTable TableDestination:="Sheet1!R3C1", TableName:="PivotTable1" _
    , DefaultVersion:=xlPivotTableVersion10

End Sub

我做了一个Sheets.Add以添加到新的工作表中。 我使用ws.Name作为名称，可以是任何名称。 只是一个附加的问题，是否可以将R1C1：R101643C21更改为可变范围，因为数据可能不那么大？

Answer 1

注意! 在SourceData中。 失踪了! 导致无效的参考

Sub test()
    Dim ws As Worksheet

    Set ws = ActiveSheet

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        ws.Name & "!R1C1:R11C2", Version:=xlPivotTableVersion10). _
        CreatePivotTable TableDestination:="Sheet2!R3C1", TableName:="PivotTable1" _
        , DefaultVersion:=xlPivotTableVersion10

End Sub

有关动态范围，请参见此

Sub test()
    Dim ws As Worksheet
    Dim rng As Range

    Set ws = ActiveSheet
    Set rng = ws.Range("A1:B10")

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        rng, Version:=xlPivotTableVersion10). _
        CreatePivotTable TableDestination:="Sheet2!R3C1", TableName:="PivotTable1" _
        , DefaultVersion:=xlPivotTableVersion10

End Sub

提醒一下，您只是以这种方式创建一个空的数据透视表