Предыдущая тема :: Следующая тема
|
Автор |
Сообщение |
Anna Rjadovoj - the ranks
![Rjadovoj - the ranks Rjadovoj - the ranks](images/zvanie_img/z2.gif)
Зарегистрирован: 08.09.2005 Сообщения: 17
|
Добавлено: Чт Ноя 09, 2006 9:37 am Заголовок сообщения: Сохранение страниц в разные файлы |
|
|
У меня есть файл, в нём 10 страниц. Подскажите, пожалуйста, как сохранить эти 10 страниц по разным (отдельным) файлам? Чтобы было 10 файлов по одной странице?
Заранее спасибо. |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
Urikor Site Admin
![](images/avatars/gallery/comics/cocr128.jpg)
Зарегистрирован: 05.08.2004 Сообщения: 3554 Откуда: Lutugino, Donbass
|
Добавлено: Пт Ноя 10, 2006 5:02 am Заголовок сообщения: |
|
|
Непонятно, а что мешает сделать 10 файлов по одной странице?
Создаете новый документ. Копируете одну страницу. Сохраняете. И т.д. |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
Anna Rjadovoj - the ranks
![Rjadovoj - the ranks Rjadovoj - the ranks](images/zvanie_img/z2.gif)
Зарегистрирован: 08.09.2005 Сообщения: 17
|
Добавлено: Пт Ноя 10, 2006 4:49 pm Заголовок сообщения: |
|
|
Я так и делаю, но, это очень не удобно .
Сегодня у меня 10 листов, завтра 100, а потом 1000. Руками копировать в отдельные файлы что-ли? А как было бы хорошо, если была бы такая функция. |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
Urikor Site Admin
![](images/avatars/gallery/comics/cocr128.jpg)
Зарегистрирован: 05.08.2004 Сообщения: 3554 Откуда: Lutugino, Donbass
|
Добавлено: Пт Ноя 10, 2006 7:25 pm Заголовок сообщения: |
|
|
Попробуйте описать задачу полностью. Может тогда можно что-то будет придумать. У Вас какие-то расчеты? |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
AsIs captain
![captain captain](images/zvanie_img/z11.gif)
![](images/avatars/gallery/mult/cocr141_small.jpg)
Зарегистрирован: 27.01.2006 Сообщения: 250 Откуда: СПб
|
Добавлено: Сб Ноя 11, 2006 2:59 pm Заголовок сообщения: |
|
|
Оххх... Давно не заглядывал, сколько тут вопросов.
Вот пока на этот отвечу. Думаю будет как-то так (если я правильно понял). Макрос:
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
Не самый оптимальный вариант, т.к.:
а) Делает активными книги по очереди. Можно без этого обойтись, чтобы не моргало на экране.
б) Если такой файл уже есть, то будет задан вопрос, заменить ли его... Можно от этого уйти. |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
Urikor Site Admin
![](images/avatars/gallery/comics/cocr128.jpg)
Зарегистрирован: 05.08.2004 Сообщения: 3554 Откуда: Lutugino, Donbass
|
Добавлено: Сб Ноя 11, 2006 4:49 pm Заголовок сообщения: |
|
|
Рад снова видеть Вас на форуме, AsIs ![Very Happy](images/smiles/icon_biggrin.gif) |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
Anna Rjadovoj - the ranks
![Rjadovoj - the ranks Rjadovoj - the ranks](images/zvanie_img/z2.gif)
Зарегистрирован: 08.09.2005 Сообщения: 17
|
Добавлено: Пн Ноя 13, 2006 12:34 pm Заголовок сообщения: |
|
|
Супер, спасибо. |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
|