itciskra.ru
В этом коде мы сначала указываем путь и имя файла для сохранения в переменных «Path» и «FileName». Затем мы создаем новую рабочую книгу с помощью метода «Workbooks.Add». Далее, с помощью цикла «For Each» мы проходимся по каждому листу в исходной рабочей книге и копируем его в новую рабочую книгу с помощью метода «Sheet.Copy». После того, как все листы скопированы, мы сохраняем новую рабочую книгу с помощью метода «ActiveWorkbook.SaveAs», указывая путь и имя файла.
Чтобы использовать этот код, вы должны заменить путь «C:\Мои Документы\» на путь, где хотите сохранить файл, и имя файла «Несколько_листов.xlsx» на желаемое имя файла.
Однако, прежде чем запустить этот код, убедитесь, что у вас есть несколько листов в исходной рабочей книге, которые вы хотите сохранить. Вы также можете настроить этот код для копирования только определенных листов, изменяя цикл «For Each Sheet» и включая только нужные вам листы.
"