Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Можно ли сохранить активнй лист новой книгой / 11 сообщений из 11, страница 1 из 1
22.10.2010, 12:42
    #36914310
A_Cross
A_Cross
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли сохранить активнй лист новой книгой
Суть есть книга с кучей листов которые нужно сохранить каждый как отдельную книгу.
Вариант скопировать текущий лист\создать новую книгу\вставить скопирований лист и сохранить
как-то не то что надо.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Range("ActiveSheet").Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:= _
        "путь\название.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
и выглядит некрасиво
а можно как-то:

текущий лист сохранить как книгу с одним листом соответствующим текущему активному листу?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.10.2010, 12:53
    #36914354
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли сохранить активнй лист новой книгой
Запись макроса по копированию листа в новую книгу не помогает?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.10.2010, 12:56
    #36914368
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли сохранить активнй лист новой книгой
Copy Method


Syntax 1: Copies the object to the Clipboard. Copies a picture of the point or series to the Clipboard.

Syntax 2: Copies the Range to the specified range or to the Clipboard.

Syntax 3: Copies the sheet to another location in the workbook.

Syntax 1

expression.Copy

Syntax 2

expression.Copy(Destination)

Syntax 3

expression.Copy(Before, After)

expression Required. An expression that returns an object in the Applies To list. To copy an entire chart sheet, use Syntax 3 with the Chart object. To copy only the chart area, use Syntax 1 with the ChartArea object.

Destination Optional Variant. Specifies the new range to which the specified range will be copied. If this argument is omitted, Microsoft Excel copies the range to the Clipboard.

Before Syntax 3: Optional Variant. The sheet before which the copied sheet will be placed. You cannot specify Before if you specify After.

After Optional Variant. The sheet after which the copied sheet will be placed. You cannot specify After if you specify Before.

Remarks

If you don't specify either Before or After, Microsoft Excel creates a new workbook that contains the copied sheet.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.10.2010, 13:04
    #36914403
A_Cross
A_Cross
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли сохранить активнй лист новой книгой
Shocker.ProЗапись макроса по копированию листа в новую книгу не помогает?
Будет как-то кострубато
скопировать текущий\создать новую книгу\вставить\сохранить с названием листа с которого скопировали\закрыть\перейти на следующий лист\повторить всё заново.

ЗЫ. Да, я не умею,ещё, писать циклы
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.10.2010, 13:19
    #36914448
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли сохранить активнй лист новой книгой
A_Cross
Будет как-то кострубато
я уже привел кусок хелпа, надеюсь, там все понятно?
A_CrossЗЫ. Да, я не умею,ещё, писать циклы
это будет примерно так:
Код: plaintext
1.
2.
3.
Dim MySheet As WorkSheet
For Each MySheet In ThisWorkbook.Worksheets
  MySheet.Copy
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.10.2010, 13:20
    #36914453
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли сохранить активнй лист новой книгой
A_Crossскопировать текущий\создать новую книгу\вставить\сохранить с названием листа с которого скопировали\закрыть\перейти на следующий лист\повторить всё заново.
Да нет же.
Правой кнопкой на ярлык листа => копировать
какие нафиг копировать/вставить
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.10.2010, 13:28
    #36914485
A_Cross
A_Cross
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли сохранить активнй лист новой книгой
Shocker.Pro,

точьно, в 2010 не сразу разглядел эту "строку"
спс. что натолкнули на мыслю. Тему можно закрыть
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.10.2010, 13:46
    #36914561
A_Cross
A_Cross
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли сохранить активнй лист новой книгой
Shocker.ProA_Crossскопировать текущий\создать новую книгу\вставить\сохранить с названием листа с которого скопировали\закрыть\перейти на следующий лист\повторить всё заново.
Да нет же.
Правой кнопкой на ярлык листа => копировать
какие нафиг копировать/вставить привык работать без мыши.
С указаным мною куском кода все ясно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.10.2010, 14:56
    #36914774
A_Cross
A_Cross
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли сохранить активнй лист новой книгой
Shocker.Pro,

А в завершение кода. А как создать окно когда будет обработан последний лист?
Есть какой-то masseg.box или textbox? Т.е. после сохранения листа вискакивало окно с текстом и клавишей ОК для закрытия этого окна.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.10.2010, 14:58
    #36914778
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли сохранить активнй лист новой книгой
MsgBox
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.10.2010, 15:00
    #36914784
A_Cross
A_Cross
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли сохранить активнй лист новой книгой
Shocker.ProMsgBoxок. курю мануалы в эту сторону
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Можно ли сохранить активнй лист новой книгой / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]