Разбиение одного файла на несколько по данным листов

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Разбиение одного файла на несколько по данным листов (Макросы/Sub)

Мурад

Дата: Среда, 23.12.2015, 12:27 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 513

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

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

Excel 2007

Всем привет! Наверняка многие из нас работают с несколькими подразделениями в одном файле. В определенный момент времени бывает необходимо разбить этот файл на несколько. Число файлов равно числу вкладок. В каждом файле остается только одна вкладка с данными своего подразделения. Название файла = значению ячейки A1 своего листа. Поможете?

Ответить

SLAVICK

Дата: Среда, 23.12.2015, 13:17 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

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

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

2019

Зачем придумывать велосипед - все уже давно придумано.
Почитайте здесь:
Код оттуда:
[vba]

Код

Sub SplitSheets2()
    Dim s As Worksheet
    Dim wb as Workbook
    Set wb = ActiveWorkbook
    For Each s In wb.Worksheets                    'проходим во всем листам активной книги
        s.Copy                    'сохраняем лист как новый файл
        ActiveWorkbook.SaveAs wb.Path & "\" & [a1]  & ".xls"  'сохраняем файл
    Next
End Sub

[/vba]

Иногда все проще чем кажется с первого взгляда.