Есть множество сводных, все они имеют названия типа: от 01 до 11, в них нужно изменить название столбца. Как написать, что бы: PivotTables("08") .PivotFields("ф30") .Caption = "30" выполнялось до нужного номера таблицы?
Ну так удалите пробелы - они изначально именно в Вашем сообщении присутствуют, я лишь скопировал то, что Вы написали и добавил то, что было Вам нужно. Про PivotTables - опять же это Вы такой код дали, я лишь в цикл его вставил. примера с файлом не было, только одна строка. Попробуйте добавить Activesheet, т.к. коллекция PivotTables именно к листу относится.
Про пробелы верно (видать есть нечто на планете, которое при копи-пасте подставляет пробелы). Про отношение сводных к листу - спасибо, не знал (проверял - верно).
Цикл не работает. Изменяется только та таблица которая указано первой (li=4 To12 - изменяется только 4ая таблица).