Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сохранить 3 листа из 4-х. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранить 3 листа из 4-х. (Макросы/Sub)
Сохранить 3 листа из 4-х.
Mark1976 Дата: Вторник, 20.04.2021, 19:47 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 738
Репутация: 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)
 
Ответить
СообщениеЗдравствуйте. Помогите с макросом. [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 листа (Шибанова
Приложение Согаз
Приложение Макс-М
Приложение Капитал) Можно сделать так, чтобы лист Шибанова не выгружался в отдельный файл? Просьба, измененный код здесь написать. Заранее спасибо.

Автор - Mark1976
Дата добавления - 20.04.2021 в 19:47
Pelena Дата: Вторник, 20.04.2021, 20:00 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19167
Репутация: 4412 ±
Замечаний: ±

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
 
Ответить
СообщениеКак вариант проверить имя листа
[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]

Автор - Pelena
Дата добавления - 20.04.2021 в 20:00
Mark1976 Дата: Вторник, 20.04.2021, 20:30 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 738
Репутация: 3 ±
Замечаний: 0% ±

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


Сообщение отредактировал Mark1976 - Вторник, 20.04.2021, 20:31
 
Ответить
СообщениеСпасибо Елена. Как всегда оперативно и профессионально.

Автор - Mark1976
Дата добавления - 20.04.2021 в 20:30
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранить 3 листа из 4-х. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!