Здравствуйте уважаемые знатоки Excel!
Хочу попросить у Вас помощи.
Нашла на просторах интернета пример «Создание отдельного файла для каждого значения фильтра сводной таблицы». Но не понимаю где прописан путь сохранения. C:\Регион\ вот это путь сохранения?
Хочу попросить у Вас помощи.
Нашла на просторах интернета пример «Создание отдельного файла для каждого значения фильтра сводной таблицы». Но не понимаю где прописан путь сохранения. C:\Регион\ вот это путь сохранения?
| Код |
|---|
Sub NoviiFailDlyaKajdogoElementaFiltra() 'Шаг 1: Объявляем переменные Dim pt As PivotTable Dim pf As PivotField Dim pi As PivotItem 'Шаг 2: Проверяем, что выделена сводная таблица On Error Resume Next Set pt = ActiveSheet.PivotTables(ActiveCell.PivotTable.Name) 'Шаг 3: Выход, если активная ячейка не в сводной таблице If pt Is Nothing Then MsgBox "Вы должны поместить курсор в сводную таблицу." Exit Sub End If 'Шаг 4: Выход, если более одного поля страницы If pt.PageFields.Count > 1 Then MsgBox "Слишком много полей фильтра отчетов. Предел 1." Exit Sub End If 'Шаг 5: Начало цикла For Each pf In pt.PageFields For Each pi In pf.PivotItems 'Шаг 6: Изменить выбор в фильтре отчетов pt.PivotFields(pf.Name).CurrentPage = pi.Name 'Шаг 7: Скопируйте область данных в новую книгу pt.TableRange1.Copy Workbooks.Add.Worksheets(1).Paste Application.DisplayAlerts = False ActiveWorkbook.SaveAs _ Filename:="C:\Регион\" & pi.Name & ".xlsx" ActiveWorkbook.Close Application.DisplayAlerts = True 'Шаг 8: Получить следующий элемент Next pi Next pf End Sub |
Изменено: - 25.08.2024 08:27:15
