Создание сводной таблицы в Excel VBA в Excel 2016 - ошибка времени выполнения 1004 - PullRequest
Новая
       4

Создание сводной таблицы в Excel VBA в Excel 2016 - ошибка времени выполнения 1004

0 голосов
/ 05 ноября 2019

ОБНОВЛЕНИЯ:

В настоящее время я пытаюсь создать временную таблицу с Excel VBA в Excel 2016. У меня настроены переменные, но, к сожалению, я продолжаю сталкиваться с ошибками при попытке запуститькод ниже.

Я пытался запустить несколько вариантов кода ниже, но безрезультатно. Я пытался работать с переменными, такими как строки, диапазоны, варианты, и все еще сталкиваюсь с ошибкой 1004: проблема, связанная с приложением или объектом. 

Sub Tester()

    Dim dateSel As Variant
    Dim tSheet, sARR As Worksheet
    Dim pTable As PivotTable
    Dim pRange As Range
    Dim lastRow, lastCol As Long

    dateSel = ActiveCell.Value

    Application.DisplayAlerts = False
    Sheets.Add before:=ActiveSheet
    ActiveSheet.Name = "TempTable"
    Set tSheet = Worksheets("TempTable")
    Set sARR = Worksheets("All_Risk_Report")

    lastRow = sARR.Cells(Rows.Count, 1).End(xlUp).Row
    lastCol = sARR.Cells(1, Columns.Count).End(xlToLeft).Column

    Set pRange = sARR.Cells(1, 1).Resize(lastRow, lastCol)

    Set pTable = ActiveWorkbook.PivotCaches.Create( _
            SourceType:=xlDatabase, _
            SourceData:=pRange.Address).CreatePivotTable( _
                TableDestination:=tSheet.Cells(2, 2))

End Sub

Я думал, что этот код будет работать для созданиявременная сводная таблица, чтобы я мог получить некоторые значения, вставить их, а затем избавиться от таблицы, но это трудно сделать, если таблица не будет создана сама. Я также думал, что объявление pRange для ссылки на данные конкретного листа также будет работать.

Любая помощь, которую вы можете оказать, очень ценится!

...