[vba] PivotTable

Happysad

котаны, я извиняюсь, что задаю столь плебейский вопрос в разделе, но надежда только на вас
написал я макрос, который создаёт сводную таблицу, соответственно часть с добавлением полей выглядит так:
pt.AddDataField pt.PivotFields("PivotField1" "Field1", xlSum
pt.AddDataField pt.PivotFields("PivotField2" "Field2", xlSum
pt.AddDataField pt.PivotFields("PivotField3" "Field3", xlSum
...
пока полей, которые требовались для оной было мало, то это не напрягало
но теперь необходимо добавить в неё 100+ полей, что делать руками совсем не хочется
Вопрос: как загнать названия полей из диапазона в массив, а потом по циклу надобавлять их в сводную? - гугл не осилил...

apl13

Поля имеют именно такой вид, как ты написал?
А то в другом гугле подсказывают, что

For  I = 1 To 100

    pt.AddDataField pt.PivotFields("PivotField" & I "Field" & I, xlSum

Next

Happysad

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

apl13

    pt.AddDataField pt.PivotFields(PFields(I Fields(I xlSum

Happysad

ладно, выставлю свою некомпетентность наружу в явном виде

:
"как забить массив в vba значениями названий полей в таблице - то есть значениями, которые содержатся в первой строчке (независимо от их количества)?"
UPD разобрался с косяками, спасибо - кавычки были не те ><

apl13

Обращайся, если что.

Оставить комментарий