用vba新建了一个数据透视表，运行时，出现错误1004 不能取得类Worksheet的Pivo...

fengyuyifeng

    Range("L10").Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R4C6:R9C9", Version:=6).CreatePivotTable TableDestination:= _
        "Sheet1!R4C12", TableName:="数据透视表7, DefaultVersion:=6"

    Sheets("Sheet1").Select
   
    With ActiveSheet.PivotTables(数据透视表7")
        .ColumnGrand = True
        .HasAutoFormat = True
        .DisplayErrorString = False
        .DisplayNullString = True
        .EnableDrilldown = True
        .ErrorString = ""
        .MergeLabels = False
        .NullString = ""
        .PageFieldOrder = 2
        .PageFieldWrapCount = 0
        .PreserveFormatting = True
        .RowGrand = True
        .SaveData = True
        .PrintTitles = False
        .RepeatItemsOnEachPrintedPage = True
        .TotalsAnnotation = False
        .CompactRowIndent = 1
        .InGridDropZones = False
        .DisplayFieldCaptions = True
        .DisplayMemberPropertyTooltips = False
        .DisplayContextTooltips = True
        .ShowDrillIndicators = True
        .PrintDrillIndicators = False
        .AllowMultipleFilters = False
        .SortUsingCustomLists = True
        .FieldListSortAscending = False
        .ShowValuesRow = False
        .CalculatedMembersInFilters = False
        .RowAxisLayout xlCompactRow
    End With

jiminyanyan

透视表一般就不用VBA了吧。。。

fxl447098457

发个以前写的给你参考下。没这么啰嗦。很短的。。
Sub CreatePT()
Dim PC As PivotCache, PT As PivotTable
On Error Resume Next
Sheets("透视表").PivotTables("Table1").TableRange2.Delete
Set PC = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        Sheets("汇票信息").UsedRange, Version:=4)
If Sheets("透视表") Is Nothing Then Sheets.Add.Name = "透视表"
Set PT = PC.CreatePivotTable(TableDestination:="透视表!R3C1", TableName:="Table1")
    With PT
   .AddDataField .PivotFields("原公司描述"), "计算", xlCount
   .AddDataField .PivotFields("金额"), " 金额", xlSum
   .AddFields RowFields:="原公司描述"
   End With
End Sub