Сохранить 3 листа из 4-х.

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

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

Сохранить 3 листа из 4-х. (Макросы/Sub)

Mark1976

Дата: Вторник, 20.04.2021, 19:47 | Сообщение № 1

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

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

Сообщений: 761

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

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

Excel 2010, 2013

Здравствуйте. Помогите с макросом. [vba]

Код

Sub Разделить_на_листы()
    Dim s As Worksheet
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    For Each s In wb.Worksheets                    'проходим во всем листам активной книги
        s.Copy                    'сохраняем лист как новый файл
        ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & ".xlsx"  'сохраняем файл
ActiveWorkbook.Close
    Next
End Sub

[/vba]
Этот макрос сохраняет отдельные листы в файл. Всего в файле 4 листа (Шибанова
Приложение Согаз
Приложение Макс-М
Приложение Капитал) Можно сделать так, чтобы лист Шибанова не выгружался в отдельный файл? Просьба, измененный код здесь написать. Заранее спасибо.

К сообщению приложен файл: 9787655.xlsm (24.3 Kb)

Ответить

Pelena

Дата: Вторник, 20.04.2021, 20:00 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19404

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

Замечаний: ±

Excel 365 & Mac Excel

Как вариант проверить имя листа
[vba]

Код

Sub Разделить_на_листы()
    Dim s As Worksheet
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    For Each s In wb.Worksheets                    'проходим во всем листам активной книги
        If s.Name<>"Шибанова" Then
        s.Copy                    'сохраняем лист как новый файл
        ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & ".xlsx"  'сохраняем файл
ActiveWorkbook.Close
        End If
    Next
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Mark1976

Дата: Вторник, 20.04.2021, 20:30 | Сообщение № 3

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

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

Сообщений: 761

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

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

Excel 2010, 2013

Спасибо Елена. Как всегда оперативно и профессионально.

Сообщение отредактировал Mark1976 - Вторник, 20.04.2021, 20:31

Ответить

Сохранить 3 листа из 4-х. (Макросы/Sub)

Страница 1 из 1
1