Получить сводную таблицу данных VBA - PullRequest
Новая
       8

Получить сводную таблицу данных VBA

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

Я сгенерировал сводную таблицу со следующим кодом. 

Sub TCD()

Dim last_row As Integer
last_row = Cells(Rows.Count, 1).End(xlUp).Row

Dim My_range As Range
 Set My_range = Range(Cells(1, 1), Cells(last_row, 2))


Dim sht As Worksheet
Dim pvtCache As PivotCache
Dim pvt As PivotTable
Dim StartPvt As String
Dim pf_Name As String


'Create a new worksheet
  Set sht = Sheets.Add
  sht.Name = "TCD"
'Where do you want Pivot Table to start?
  StartPvt = "TCD" & "!" & sht.Range("A1").Address(ReferenceStyle:=xlR1C1)

'Create Pivot Cache from Source Data
  Set pvtCache = ActiveWorkbook.PivotCaches.Create( _
    SourceType:=xlDatabase, _
    SourceData:=My_range)

'Create Pivot table from Pivot Cache
  Set pvt = pvtCache.CreatePivotTable( _
    TableDestination:=StartPvt, _
    TableName:="PivotTable1")

 pvt.PivotFields("Type_c").Orientation = xlRowField
 pf_Name = "Max iteration par type"

pvt.AddDataField pvt.PivotFields("Nb_Iteration"), pf_Name, xlMax

'Часть кода, которая ничего не делает 

 Dim dbl As Double
    dbl = pvt.GetData(Name:="CP")

    End Sub

Сводная таблица выглядит следующим образом

enter image description here

Как я могу получить номер каждого элемента строки? Я попытался использовать получить данные (последние две строки кода) и getpivotdata. Ничто не похоже на работу.

1 Ответ

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

Вы можете попробовать следующее: 

dbl = pvt.GetData("'Max iteration par type' CP")
...