Сводные таблицы VBA для доступа к заголовкам столбцов

Question

Привет! Я использую Excel 2010 VBA в Windows 7. Как получить доступ к заголовкам столбцов для данной сводной таблицы.

Например, приведенная ниже сводная таблица

            Column Labels
            -------------
Row Labels  Col1          Col2         Col3
----------
Year 1      Value 1      Value 4      Value 7

Year 2      Value 2      Value 5      Value 8

Year 3      Value 3      Value 6      Value 9

Я пытаюсь получить доступ к col1, col2, col3, затем хочу прочитать все значения для данного столбца, используя сводную таблицу в VBA. Я не могу захватить метки столбцов, хотя? Также, как только я проверил, существует ли столбец, я бы хотел иметь возможность выбрать значения в данном столбце. Любая помощь будет потрясающей!

Итак, я спрашиваю, как мне проверить, скажем, col1 существует в виде столбца, а затем вывести значения 1, 2 и 3.

Answer 1

Обычно я добавляю это поле для комментариев ниже процедуры, которая создает сводные таблицы.

'
' PIVOT Tables 
' These are created programatically.
'
' Relative references are used throughout.  Hard coded cell addresses are avoided.
' This allows it to continue to work with future data that expands/contracts either the rows or the columns.
'
' In this PIVOT Table example, there are six (6) ranges shown.
' By setting a variable equal to the range, and using REZISE and OFFSET functions,
'   any address can be developed relative to these ranges.
'         Dim rBody as Range
'   e.g.  rBody = ActiveSheet.PivotTables("PivotTable1").DataBodyRange
'         6   = rBody.Row
'         129 = rBody.Row + rBody.Rows.Count - 1
'          26 = rBody.Column + rBody.Columns.Count - 1
'         E6  = rBody.Resize(1,1)
'         AE6 = rBody.Resize(1,1).Offset(0,rBody.Columns.Count)
'
'/--------------------------------------------------\
'|    TABLE1 and TABLE2 refer to (A3:AD129)         |
'|                /--------------------------------\|
'|  A3            | E3                             ||
'|                |          COLUMN (E3:AD5)       ||
'|  A4            | E4                             ||
'| |------------\ |/------------------------------\||
'| |A5 B5 C5 D5 | ||E5       LABEL             AD5|||
'| |            | \================================/|
'| |            | /--------------------------------\|
'| |    ROW     | | E6                         AD6 || AE6
'| |            | |                                ||
'| |            | |           BODY                 ||
'| |            | |                                ||
'| |A129    D129| | E129                     AD129 ||
'| \------------/ \--------------------------------/|
'\--------------------------------------------------/