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

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

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

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

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

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

Сообщений: 809

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

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

Excel 2010, 2013

Здравствуйте. Есть макрос

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

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