Неверная процедура вызова - PullRequest
0 голосов
/ 14 июля 2020

Я получаю сообщение об ошибке с приведенным ниже кодом (недопустимый вызов процедуры или аргумент). Я начал с записанного кода и обновил код, чтобы учесть переменные данные. Последняя строка кода выдает ошибку. Целевой лист находится в книге, а имя таблицы еще не занято. Переменная LastRow определена ранее в полном коде, и я подтвердил, что она получает правильное значение. Есть идеи относительно того, что могло вызвать ошибку?

Dim pc As PivotCache
Dim pt As PivotTable

    Set pc = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase _

        , SourceData:="'Funding Summary'!A1:AQ" & LastRow, Version:=6)

    Set pt = pc.CreatePivotTable(TableDestination:="'Funding Pivot'!A3", TableName:="FundingPivot", _

        DefaultVersion:=6)

Переменная LastRow была определена ранее:

Dim LastRow As Long
LastRow = Cells(Rows.Count, 2).End(xlUp).Row

1 Ответ

0 голосов
/ 14 июля 2020

Нашел решение:

Set pt = pc.CreatePivotTable(TableDestination:="'Funding Pivot'!A3"

Должно быть

Set pt = pc.CreatePivotTable(TableDestination:=Sheets("Funding Pivot").Range("A3")

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...