Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Применение кода VBA ко всем файлам в папке по очереди
 
Коллеги, добрый день
обращаюсь нечасто, но уж по крайней необходимости)
тут специалистам думаю это на раз два решить

есть папка с файлами, пускай в корне C, для упрощения вопроса
задача - по очереди открыть каждый файл в этой папке (все одним расширением .xlsm, сложностей дополнительных нет)
запустить в каждом файле код, отдельно имеющийся
сохранить файл в той же папке да и закрыть

в открытых источниках как-то всё очень сложно, попробовал пару-тройку готовых решений - не работает, проскакивает почему-то с Do While сразу на End Sub

может есть какое-то прям простейшее решение?
VBA не меняет формулу, привязанную к элементу управления формы
 
Коллеги, добрый день

вот вроде бы очень простой вопрос
но не очень(
в файле размещен элемент управления формы (флажок)
он как положено привязан к Ячейке 1, и в зависимости от того, включен флажок или выключен, ячейка возвращает ИСТИНА/ЛОЖЬ
а от неё идет формула к другой Ячейке 2 (ЕСЛИ)

задаю макросом значение ИСТИНА для Ячейки 1
а в Ячейке 2 ничего не меняется, только при ручном включении флажка
пересчет листа не помогает

может кто сталкивался? был бы весьма признателен
Обновление данных в модели данных PowerPivot средствами VBA
 
Коллеги, добрый день
Возникла задача - макросом обновить все таблицы в МД в PowerPivot
таблицы импортированы из отдельных экселевских файлов и собраны в одной папке
вот это:
ActiveWorkbook.Model.Refresh
не работает :evil:
догадываюсь, что это как то очень просто
но не догадываюсь, как(
наверняка всё уже придумано до нас
кто сталкивался - расскажите, пожалуйста
Фильтрация данных в сводной таблице PowerPivot с помощью макроса
 
Коллеги, добрый день.
Возникла задача через vba задать фильтр в сводной таблице, сгенерированной в среде PowerPivot.
Стандартное решение в сети:

   SubFilterPivotTable ()   Dim pf As PivotField
   Dim myFilter As String
   Set pf = ActiveSheet.PivotTables(" PivotTable1 ").PivotFields(" Position ")
   myFilter = ActiveWorkbook.Sheets(" Sheet1 ").Range(" J2 ").Value
   pf.PivotFilters.Add2 xlCaptionEquals, , myFilter
   End Sub

не работает, оно подходит только для обычной сводной таблицы
а именно в PowerPivot не определяет, т.к. "невозможно получить свойство PivotFields класса PivotTables"
предполагаю, что макрос не понимает из какой конкретно таблицы вытянуто поле в сводную (их несколько в модели данных и названия повторяются)
нужно как-то наверно указать таблицу м.б.?
или как подступиться грамотно?
может кто-то уже всё это проходил и знает?
Страницы: 1
Наверх