Сохранение листов отдельными файлами

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

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

Сохранение листов отдельными файлами (Макросы/Sub)

chaa

Дата: Среда, 05.06.2019, 23:48 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

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

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

Excel 2016

Всем привет. Помогите пожалуйста с задачей
Есть файл, в нем порядка 20 листов. Из этих 20 листов 15 нужно сохранить отдельным файлом с названием этих листов и разорвать в них связи, остальные 5 листов с определенными названиями не трогать.
Пытался найти решение. Нашел код, но он работает только если 15 листов стоят первыми по порядку. Если же лист, который сохранять отдельно не нужно будет первым, то выдает ошибку 1004. Как разорвать еще связи не смог добавить сюда...
Sub SplitSheet()
Application.ScreenUpdating = False
Dim s As Worksheet
Dim wb As Workbook
Set wb = ActiveWorkbook
For Each s In wb.Worksheets
If s.Name <> "СВОД" And s.Name <> "ПОКУПКА" Then s.Copy
ActiveWorkbook.SaveAs "C:\Users\chaa\Desktop\" & "\" & s.Name & ".xlsx"
ActiveWindow.Close
Next
Application.ScreenUpdating = True
End Sub