Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Задать путь к источнику сводной - в ячейке. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Задать путь к источнику сводной - в ячейке. (Сводные таблицы/Pivot Table)
Задать путь к источнику сводной - в ячейке.
ArkaIIIa Дата: Среда, 20.04.2016, 09:23 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 873
Репутация: 115 ±
Замечаний: 0% ±

2010
Добрый день уважаемые господа!

Прошу прощения, что без файла, но вопрос скорее теоретический, не требующий каких-либо расчетов.

Есть файл в котором на нескольких листах несколько десятков сводных таблиц.
Источник данных для всех этих таблиц - в другом файле, и путь к нему имеет вид а-ля: F:\Папка 1\Папка 2\Папка 3\2 квартал 2016 г\[База (2 квартал).xlsm]CURRENT'!$A$1:$AD$165988

Каждый квартал приходится ручками менять вот эту часть "[База (2 квартал).xlsm" на следующий по счету (3 квартал и т.д.).
В связи с этим я задался вопросом, а нельзя ли как-нибудь (возможно, через функционал диспетчера имен), указать в самом файле путь (F:\...), а в источнике данных сводных таблиц указать просто ссылку на ячейку, в которой этот путь хранится?

Заранее благодарю!


Сообщение отредактировал ArkaIIIa - Среда, 20.04.2016, 09:29
 
Ответить
СообщениеДобрый день уважаемые господа!

Прошу прощения, что без файла, но вопрос скорее теоретический, не требующий каких-либо расчетов.

Есть файл в котором на нескольких листах несколько десятков сводных таблиц.
Источник данных для всех этих таблиц - в другом файле, и путь к нему имеет вид а-ля: F:\Папка 1\Папка 2\Папка 3\2 квартал 2016 г\[База (2 квартал).xlsm]CURRENT'!$A$1:$AD$165988

Каждый квартал приходится ручками менять вот эту часть "[База (2 квартал).xlsm" на следующий по счету (3 квартал и т.д.).
В связи с этим я задался вопросом, а нельзя ли как-нибудь (возможно, через функционал диспетчера имен), указать в самом файле путь (F:\...), а в источнике данных сводных таблиц указать просто ссылку на ячейку, в которой этот путь хранится?

Заранее благодарю!

Автор - ArkaIIIa
Дата добавления - 20.04.2016 в 09:23
_Boroda_ Дата: Среда, 20.04.2016, 11:09 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11349
Репутация: 4679 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Можно что-то вот такое в модуль книги положить
[vba]
Код
Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
    Application.EnableEvents = 0
    Application.ScreenUpdating = 0
    For Each Sh In Me.Worksheets
        For Each Target In Sh.PivotTables
            n = Target.Name
            Sh.PivotTables(Target.Name).ChangePivotCache Me. _
                PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Sheets("Лист2").Range("D1"))
        Next
    Next
    Application.EnableEvents = 1
End Sub
[/vba]
При обновлении любой сводной меняется путь ко всем. Путь берется из Лист2!D1.
Или можно аналогично повесить на событие изменения ячейки Лист2!С1
К сообщению приложен файл: 78754542_1.xlsm(30Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеМожно что-то вот такое в модуль книги положить
[vba]
Код
Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
    Application.EnableEvents = 0
    Application.ScreenUpdating = 0
    For Each Sh In Me.Worksheets
        For Each Target In Sh.PivotTables
            n = Target.Name
            Sh.PivotTables(Target.Name).ChangePivotCache Me. _
                PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Sheets("Лист2").Range("D1"))
        Next
    Next
    Application.EnableEvents = 1
End Sub
[/vba]
При обновлении любой сводной меняется путь ко всем. Путь берется из Лист2!D1.
Или можно аналогично повесить на событие изменения ячейки Лист2!С1

Автор - _Boroda_
Дата добавления - 20.04.2016 в 11:09
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Задать путь к источнику сводной - в ячейке. (Сводные таблицы/Pivot Table)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!