Ошибка при попытке создать сводную таблицу - PullRequest
Новая
       6

Ошибка при попытке создать сводную таблицу

0 голосов
/ 20 января 2020

Я пытался запустить следующий макрос, чтобы создать сводную таблицу вне диапазона из другого листа данных, и я не могу заставить его работать. 

Sub topc()

Application.ScreenUpdating = False

Application.DisplayAlerts = False
Worksheets("TOP C").Delete
Sheets.Add Before:=ActiveSheet
ActiveSheet.Name = "TOP C"
Application.DisplayAlerts = True



ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Complaints!R1C1:R3000C32", Version:=6).CreatePivotTable _
        TableDestination:="TOP C!R1C1", TableName:="PivotTable1", _
        DefaultVersion:=6


      ActiveSheet.PivotTables("PivotTable1").RepeatAllLabels xlRepeatLabels
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Recurrence")
        .Orientation = xlColumnField
        .Position = 1
    End With

      ActiveSheet.PivotTables("PivotTable1").RepeatAllLabels xlRepeatLabels
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Subtype Name")
        .Orientation = xlRowField
        .Position = 1
    End With

      With ActiveSheet.PivotTables("PivotTable1").PivotFields("Type Inquiry")
        .Orientation = xlPageField
        .Position = 1
    End With

        ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
        "PivotTable1").PivotFields("Value"), "Sum of Value", xlSum


End Sub

Я продолжаю получать ошибка "Недопустимая процедура или аргумент" в этой области: 

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
       "Complaints!R1C1:R3000C32", Version:=6).CreatePivotTable _
       TableDestination:="TOP C!R1C1", TableName:="PivotTable1", _
       DefaultVersion:=6

и постоянно говорит мне xlDatabase = 1, idk, если это проблема. ПОЖАЛУЙСТА, ПОМОГИТЕ !!

...