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

Вход

Регистрация

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

 

= Мир MS Excel/Обновление сводной - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Обновление сводной (Макросы/Sub)
Обновление сводной
pabchek Дата: Среда, 27.01.2016, 16:33 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 691
Репутация: 152 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте коллеги!
По-чайниковски столкнулся с проблемой. Макросом создаю сводную таблицу: на листе "Выгр" жамкаю кнопку. Пока все норм. Затем удаляю "лишнюю" информацию - на листе "SI" кнопка - и сохраняется крохотный файл без привязки к БД. ЧТо я не так делаю, подскажите, плз!

[p.s.] чегото в спойлере форматирование убежало(((
К сообщению приложен файл: __SI.zip(93Kb)


"Учиться, учиться и еще раз учиться!"
WM: R399923528092


Сообщение отредактировал pabchek - Среда, 27.01.2016, 16:58
 
Ответить
СообщениеЗдравствуйте коллеги!
По-чайниковски столкнулся с проблемой. Макросом создаю сводную таблицу: на листе "Выгр" жамкаю кнопку. Пока все норм. Затем удаляю "лишнюю" информацию - на листе "SI" кнопка - и сохраняется крохотный файл без привязки к БД. ЧТо я не так делаю, подскажите, плз!

[p.s.] чегото в спойлере форматирование убежало(((

Автор - pabchek
Дата добавления - 27.01.2016 в 16:33
_Boroda_ Дата: Среда, 27.01.2016, 17:17 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 10334
Репутация: 4357 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
А что нужно? Привязку? Так у Вас в сводной она снята. ПКМ на сводную - Параметрф - Данные - Сохранять исх. данные.
Макросом это так
[vba]
Код
ActiveSheet.PivotTables("Сводная_13-16").SaveData = True
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА что нужно? Привязку? Так у Вас в сводной она снята. ПКМ на сводную - Параметрф - Данные - Сохранять исх. данные.
Макросом это так
[vba]
Код
ActiveSheet.PivotTables("Сводная_13-16").SaveData = True
[/vba]

Автор - _Boroda_
Дата добавления - 27.01.2016 в 17:17
pabchek Дата: Среда, 27.01.2016, 17:28 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 691
Репутация: 152 ±
Замечаний: 0% ±

Excel 2007
ПКМ на сводную

Саш, да, все правильно. Но, до исполнения первого макроса эта галка стоит. Да я ее и не снимаю практически никогда. Однако, после она исчезает. Не знал такой особенности, выходит надо где-то дополнительно прописать, чтобы она не снималась.
[p.s.]В файле примере ее может уже и не быть, конечно. Поскольку макросы я уже запускал. Т.е. если взять файл с включенной галкой и запустить макрос, то она снимется


"Учиться, учиться и еще раз учиться!"
WM: R399923528092


Сообщение отредактировал pabchek - Среда, 27.01.2016, 17:30
 
Ответить
Сообщение
ПКМ на сводную

Саш, да, все правильно. Но, до исполнения первого макроса эта галка стоит. Да я ее и не снимаю практически никогда. Однако, после она исчезает. Не знал такой особенности, выходит надо где-то дополнительно прописать, чтобы она не снималась.
[p.s.]В файле примере ее может уже и не быть, конечно. Поскольку макросы я уже запускал. Т.е. если взять файл с включенной галкой и запустить макрос, то она снимется

Автор - pabchek
Дата добавления - 27.01.2016 в 17:28
_Boroda_ Дата: Среда, 27.01.2016, 17:34 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 10334
Репутация: 4357 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
А поставить опять? Я зачем код написал?


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА поставить опять? Я зачем код написал?

Автор - _Boroda_
Дата добавления - 27.01.2016 в 17:34
pabchek Дата: Среда, 27.01.2016, 17:46 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 691
Репутация: 152 ±
Замечаний: 0% ±

Excel 2007
Сделал вот так
[vba]
Код
        Sheets("SI").Select
            ActiveSheet.PivotTables("Сводная_13-16").SaveData = True
        ActiveSheet.PivotTables("Сводная_13-16").ChangePivotCache _
            ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="База!A1:R" & T)
[/vba]
Результат тот же


"Учиться, учиться и еще раз учиться!"
WM: R399923528092
 
Ответить
СообщениеСделал вот так
[vba]
Код
        Sheets("SI").Select
            ActiveSheet.PivotTables("Сводная_13-16").SaveData = True
        ActiveSheet.PivotTables("Сводная_13-16").ChangePivotCache _
            ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="База!A1:R" & T)
[/vba]
Результат тот же

Автор - pabchek
Дата добавления - 27.01.2016 в 17:46
_Boroda_ Дата: Среда, 27.01.2016, 18:05 | Сообщение № 6
Группа: Модераторы
Ранг: Экселист
Сообщений: 10334
Репутация: 4357 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
У меня вот так работает
[vba]
Код
Sub Сводная()
    Application.ScreenUpdating = 0
    Application.DisplayAlerts = False
        Sheets(Array("Подготовка", "Выгр", "Мндж", "Код_Н", "MML")).Delete
        ActiveWorkbook.RefreshAll
        Sheets("База").Delete
        ActiveSheet.PivotTables("Сводная_13-16").SaveData = True
        ActiveWorkbook.SaveAs "c:\Users\AGusev\Моя\Стереть\657856", FileFormat:=xlOpenXMLWorkbookMacroEnabled
    Application.DisplayAlerts = True
        Sheets("SI").Select
        Range("A1").Select
    ActiveWorkbook.Save
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеУ меня вот так работает
[vba]
Код
Sub Сводная()
    Application.ScreenUpdating = 0
    Application.DisplayAlerts = False
        Sheets(Array("Подготовка", "Выгр", "Мндж", "Код_Н", "MML")).Delete
        ActiveWorkbook.RefreshAll
        Sheets("База").Delete
        ActiveSheet.PivotTables("Сводная_13-16").SaveData = True
        ActiveWorkbook.SaveAs "c:\Users\AGusev\Моя\Стереть\657856", FileFormat:=xlOpenXMLWorkbookMacroEnabled
    Application.DisplayAlerts = True
        Sheets("SI").Select
        Range("A1").Select
    ActiveWorkbook.Save
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 27.01.2016 в 18:05
pabchek Дата: Среда, 27.01.2016, 18:13 | Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 691
Репутация: 152 ±
Замечаний: 0% ±

Excel 2007
Так-то и у меня работает :D
Спасибо!!! Вопрос решен.


"Учиться, учиться и еще раз учиться!"
WM: R399923528092
 
Ответить
СообщениеТак-то и у меня работает :D
Спасибо!!! Вопрос решен.

Автор - pabchek
Дата добавления - 27.01.2016 в 18:13
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Обновление сводной (Макросы/Sub)
Страница 1 из 11
Поиск:

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