Не открывать файлы после сохранения.

Вход

Регистрация

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

= Мир MS Excel/Не открывать файлы после сохранения. - Мир MS Excel

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

Не открывать файлы после сохранения. (Макросы/Sub)

Не открывать файлы после сохранения.

Mark1976

Дата: Среда, 09.12.2020, 08:10 | Сообщение № 1

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

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

Сообщений: 815

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

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

Excel 2010, 2013

Здравствуйте. Есть макрос [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 & "\" & s.Name & ".xlsx"  'сохраняем файл
    Next
End Sub

[/vba] который сохраняет все листы в отдельные файлы, при этом открывая все сохраненные листы. В итого у меня 130 файлов открыто. Можно сделать так, чтобы сохраненные листы не открывались, а просто сохранялись как отдельные файлы?