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

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


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