Разделить листы на отдельные файлы

RSS

Разделить листы на отдельные файлы, Как разделить листы в файлы на отдельные файлы, чтобы каждый файл имел наименование листа .

aliyam_b Пользователь Сообщений: 50 Регистрация: 30.01.2013	#1 04.10.2022 14:04:50 Есть файлы в котором есть листы №1,№2,№3,№4. Как можно разделить эти листы на разные файлы с наименованием файлов№1, №2, №3, №4 Прикрепленные файлы Пример_204102022.xlsx (10.12 КБ)

Ігор Гончаренко

Пользователь

Сообщений: 14576 Регистрация: 01.01.1970

04.10.2022 14:24:51

Код
Sub CopySheets2Files() Dim shs, sh shs = Array("№1", "№2", "№3", "№4") For Each sh In shs Worksheets(sh).Copy ActiveWorkbook.SaveAs sh ActiveWorkbook.Close Next End Sub

Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

Александр Моторин

Пользователь

Сообщений: 974 Регистрация: 31.12.2012

04.10.2022 14:39:51

Код

Sub Макрос1()
    Dim i, pat, fil
    pat = ActiveWorkbook.pat
    For i = 1 To 3
        Worksheets("№" & i).Move
        fil = pat & "\" & i & ".xlxs"
        ActiveWorkbook.SaveAs fil
        ActiveWorkbook.Close
    Next i
    fil = pat & "\" & i & ".xlxs"
    ActiveWorkbook.SaveAs fil
    ActiveWorkbook.Close
End Sub