on-line-teaching.com

[Anna]

У меня есть файл, в нём 10 страниц. Подскажите, пожалуйста, как сохранить эти 10 страниц по разным (отдельным) файлам? Чтобы было 10 файлов по одной странице?

Заранее спасибо.

[Urikor]

Непонятно, а что мешает сделать 10 файлов по одной странице?
Создаете новый документ. Копируете одну страницу. Сохраняете. И т.д.

[Anna]

Я так и делаю, но, это очень не удобно .
Сегодня у меня 10 листов, завтра 100, а потом 1000. Руками копировать в отдельные файлы что-ли? А как было бы хорошо, если была бы такая функция.

[Urikor]

Попробуйте описать задачу полностью. Может тогда можно что-то будет придумать. У Вас какие-то расчеты?

[AsIs]

Оххх... Давно не заглядывал, сколько тут вопросов.
Вот пока на этот отвечу. Думаю будет как-то так (если я правильно понял). Макрос:

Sub SaveSheets()
Dim i As Integer

For i = 1 To Sheets.Count
Sheets(i).Select
Sheets(i).Copy
ActiveWorkbook.SaveAs Filename:="Book" & i & ".xls", FileFormat:=xlNormal
ActiveWindow.Close
Next
End Sub

Не самый оптимальный вариант, т.к.:
а) Делает активными книги по очереди. Можно без этого обойтись, чтобы не моргало на экране.
б) Если такой файл уже есть, то будет задан вопрос, заменить ли его... Можно от этого уйти.

[Urikor]

Рад снова видеть Вас на форуме, AsIs

[Anna]

Супер, спасибо.