Сводная таблица

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Сводная таблица - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сводная таблица (Макросы/Sub)

Сводная таблица

Kemmi

Дата: Вторник, 01.09.2020, 14:06 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте. Не работает макрос. Пытаюсь создать сводную таблицу в одной книге, взяв данные из другой книги. Не создается сводная таблица, пишет не допустимое имя поля сводной таблицы. Что неправильно?. Знаю что переменные надо объявить глобально, но как это сделать для разных книг. Или такой вариант вообще не подходит.

Sub England()
Dim rng As Range
Dim PTCache As PivotCache
Dim PT As PivotTable

Set rng = Workbooks("Italia.xlsm"). Worksheets("BD_Italia.xlms").Range("B5").CurrentRegion
Set PTCache = ActiveWorkbook.PivotCaches.Create(xlDatabase, rng .Address)
Set PT = PTCache.CreatePivotTable(Workbooks("England.xlsm"). Worksheets("BD_England").Range("B5:B6"))

Ответить

Pelena

Дата: Вторник, 01.09.2020, 15:59 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19174

Репутация: 4413 ±

Замечаний: ±

Excel 365 & Mac Excel

Kemmi, дайте теме более конкретное название, отражающее суть задачи, в соответствии с Правилами форума и оформите код тегами с помощью кнопки # в режиме правки поста

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сводная таблица (Макросы/Sub)

Страница 1 из 1
1