ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Копирование страниц в Excel
9 сообщений из 9, страница 1 из 1
Копирование страниц в Excel
    #36637583
Jupiter74
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jupiter74
Гость
Как мне сделать копию страницы и получить ссылку на новую страницу?
Все работало.
ActiveWorkbook.Worksheets(ИмяШаблона).Copy After:=Worksheets("Расчет цены")
Set WS = ActiveWorkbook.Worksheets("Расчет цены").Next
Но после того, как я сделал несколько страниц невидимыми - excel стал ошибаться. Как next он видит другую страницу :(
...
Рейтинг: 0 / 0
19.05.2010, 19:03
| Ответить | Цитировать | Написать  
Копирование страниц в Excel
    #36637641
Пробуй камнем
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пробуй камнем
Гость
Jupiter74,

Код: plaintext
1.
Worksheets(ИмяШаблона).Copy After:=Worksheets("Расчет цены")
Set WS = Worksheets(Worksheets("Расчет цены").Index+ 1 )
...
Рейтинг: 0 / 0
19.05.2010, 19:33
| Ответить | Цитировать | Написать  
Копирование страниц в Excel
    #36637649
Jupiter74
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jupiter74
Гость
Ни фига. Ошибается
...
Рейтинг: 0 / 0
19.05.2010, 19:36
| Ответить | Цитировать | Написать  
Копирование страниц в Excel
    #36637652
Jupiter74
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jupiter74
Гость
Подозреваю, что вся собака в том, что листы невидимые
...
Рейтинг: 0 / 0
19.05.2010, 19:37
| Ответить | Цитировать | Написать  
Копирование страниц в Excel
    #36637678
Пробуй камнем
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пробуй камнем
Гость
Jupiter74Подозреваю, что вся собака в том, что листы невидимые
Подозреваю что вся собака в том, что между копированием и присвоением есть ещё операции.
ЗЫ: тестировал на Excel 2003 (11.81.05.8107) SP2. Код добавлял в модуль первого листа книги.
...
Рейтинг: 0 / 0
19.05.2010, 19:52
| Ответить | Цитировать | Написать  
Копирование страниц в Excel
    #36637905
Jupiter74
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jupiter74
Гость
Это не с модуля страницы. Это с дополнительного модуля. Excel 2007 SP2.
До того, как сделал страницы невидимыми все работало правильно
...
Рейтинг: 0 / 0
19.05.2010, 22:01
| Ответить | Цитировать | Написать  
Копирование страниц в Excel
    #36638217
sergeyvg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sergeyvg
Гость
думаю, поможет
Код: plaintext
Set WS = ActiveSheet
поскольку после копирования всегда активна новая страница
...
Рейтинг: 0 / 0
20.05.2010, 08:05
| Ответить | Цитировать | Написать  
Копирование страниц в Excel
    #36638304
Jupiter74
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jupiter74
Гость
ActiveSheet не работает. Опять получаю ссылку не на ту страницу. Сделал проще - перебираю все страницы по имени, пока не встречу свою. Не хочу дальше заморачиваться.
...
Рейтинг: 0 / 0
20.05.2010, 09:10
| Ответить | Цитировать | Написать  
Копирование страниц в Excel
    #36644839
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
Я обычно делаю примерно так:
Код: plaintext
1.
2.
3.
ActiveWorkbook.Worksheets(ИмяШаблона).Copy After:=Worksheets("Расчет цены")
Set WS = ActiveWorkbook.ActiveSheet
WS.Name="Имя для новой страницы"
Т.е. по аналогии с sergeyvg, сразу-же после копирования получаю ссылку на активный лист и данному листу присваиваю какое-то имя.
Дальше можно обращаться к листу по данной ссылке или названию листа.
...
Рейтинг: 0 / 0
24.05.2010, 11:45
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Копирование страниц в Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36638217&tid=2178080]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 178ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 243ms
total:  496ms
созд. / загр.: 496ms
x
x
Закрыть


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