Листы в книги - Мир MS Excel

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

Листы в книги (Формулы/Formulas)

Листы в книги

Pulse

Дата: Понедельник, 18.08.2014, 12:16 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 213

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

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

2013

Добрый день!
Дано: Книга с листами.
Требуется: При нажатии кнопки в книге преобразовать все листы в этой книге в отдельные книги с именами листов. Было бы здорово, чтобы всплывало окошко с запросом о месте сохранения.

К сообщению приложен файл: Faily.xlsx (8.6 Kb)

Сообщение отредактировал Pulse - Понедельник, 18.08.2014, 12:29

Ответить

igrtsk

Дата: Понедельник, 18.08.2014, 14:53 | Сообщение № 2

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

Ранг: Обитатель

Сообщений: 321

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

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

Excel 2016

Вам сюда: Сохранение листов книги как отдельных файлов

Инструктор по применению лосей в кавалерийских частях РККА

Ответить

AlexM

Дата: Вторник, 19.08.2014, 01:26 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

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

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

Excel 2003

Сохраняет в папку с исходным файлом
[vba]

Код

Sub SheetToXlsFile()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
     For Each SN In ThisWorkbook.Sheets
     Workbooks.Add xlWBATWorksheet 'создание книги с одним листом
     ThisWorkbook.Sheets(SN.Index).Cells.Copy ActiveWorkbook.Sheets(1).Cells
     ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & SN.Name & ".xls")
     ActiveWorkbook.Close
     Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

[/vba]

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Pulse

Дата: Вторник, 19.08.2014, 12:29 | Сообщение № 4

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

Ранг: Форумчанин

Сообщений: 213

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

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

2013

igrtsk, посмотрел, на первый взгляд мой вариант второй, но почему то с моим файлом не сработало.
AlexM, привет! Спасибо, то, что надо!

Ответить

Листы в книги (Формулы/Formulas)

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