VBA EXCEL Создать сводную таблицу со всеми заполненными ячейками - PullRequest
Новая
       12

VBA EXCEL Создать сводную таблицу со всеми заполненными ячейками

1 голос
/ 16 марта 2019

Я пытаюсь создать на листе FILTERED сводную таблицу из всех непустых ячеек на листе ALL_RECORDS (заполненные ячейки будут меняться каждый день) следующим образом: 

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "ALL_RECORDS!R1C1:R3992C19", Version:=6).CreatePivotTable _
        TableDestination:="FILTERED!R3C1", TableName:="TablaDinámica1", _
        DefaultVersion:=6
    Sheets("FILTERED").Select
    Cells(3, 1).Select

Но я продолжаюПолучение ошибки 5 (Недопустимый вызов процедуры или аргумент) Даже если я сделаю это, сохранив макрос ... Мне нужно создавать сводную таблицу каждый раз, когда выполняется макрос.Любая помощь будет оценена.Заранее спасибо!

1 Ответ

1 голос
/ 16 марта 2019

Я попытался воспроизвести ваш код ошибки, и единственный случай, когда у меня есть эта ошибка, - это когда лист "ФИЛЬТРИРОВАН" не существует.Вы должны создать его до запуска создания сводной таблицы.

Пример: 

Sheets.Add After:=ActiveSheet
ActiveSheet.Name = "FILTERED"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "ALL_RECORDS!R1C1:R3992C19", Version:=6).CreatePivotTable _
    TableDestination:="FILTERED!R3C1", TableName:="TablaDinámica1", _
    DefaultVersion:=6
Sheets("FILTERED").Select
Cells(3, 1).Select
...