Создание сводной таблицы из исходного листа, в котором постоянно меняются данные, но сейчас выдаёт ошибку,
раньше макрос на сводную таблицу работал нормально, пока что-то не поменяли в исходном файле, после этого начала выходить ошибка - Run-time error '1004' на строке 21, помогите пожалуйста понять, что мешает работе макроса
| Код |
|---|
Sub PIVOTOrder()Dim rngData As Range
Dim rngDataP As Range
Dim shtSvodka As Worksheet
Dim Nrow As Long, Ncol As Long ' число строк и столбцов
Dim rngFirst As Range, rngLast As Range 'первая и последняя ячейка
Dim rngS As Rangе[/P]
Call ClearPIVOTOrder
'1 - Диапазон с данныим
Set rngData = ThisWorkbook.Worksheets("Order").UsedRange
Set shtSvodka = ThisWorkbook.Worksheets("OrderPivot")
' 2 - кэш сводной таблицы
Dim PTCache As PivotCache
Set PTCache = ThisWorkbook.PivotCaches.Create(xlDatabase, rngData)
' 3 - добавить сводную таблицу
Dim PT As PivotTable
Set PT = PTCache.CreatePivotTable(shtSvodka.Range("A1")) ' здесь возникает ошибка
' 4 - поля сводной таблицы
PT.AddFields RowFields:="Customer", ColumnFields:="DueDatePeriod", PageFields:="Level"
With PT.PivotFields("Unic #")
.Orientation = xlRowField
.Position = 2
End With
[P]' 5 - поля значений
With PT.PivotFields("QtyOpen")
.Orientation = xlDataField
.Function = xlSum
End With |
