 |
|
Модераторы: Akina |
 
|
|
Переместить лист в другую книгу 
| Aline |
|
|||
|
Опытный  Профиль Группа: Участник Сообщений: 470 Регистрация: 22.7.2005 Где: Таруса Репутация: нет Всего: нет |
Всем привет!
Первый раз пишу макрос для Excel. Суть в том что по нажатию кнопки у меня добавляется лист, на нем формируется таблица, а в конце хотелось бы результат этой работы перенести в другую книгу, на новый лист. В редакторе написала: Sheets(inZ).Select Sheets(inZ).Move Application.WindowState = xlMinimized Всё замечательно работает, лист перемещается в новую книгу, название которой формирует автоматически Excel (напр, Книга2.xls) Проблема в том, что хотелось бы всё-таки давать пользоватлю выбор, куда этот лист перемещать, пусть бы появлялось окно сохранения, в котором можно было бы выбрать книгу в которую добавить лист, но вот как это сделать? Добавлено @ 11:27 Устроил бы даже такой диалог, как пояляется после выбора команды "Переместить/скопировать лист..." из меню Правка  |
|||
|
||||
Загрузка ...
| Kirill89 |
|
|||
 Опытный Профиль Группа: Участник Сообщений: 501 Регистрация: 17.10.2006 Где: Питер Репутация: 3 Всего: 4 |
Я могу только предположить, так-как неособо знаком с vba, возможно у move указать параметр, или moveto
|
|||
|
||||
| Naghual |
|
|||
 Эксперт Профиль Группа: Завсегдатай Сообщений: 1893 Регистрация: 15.5.2004 Где: Украина, Днепр Репутация: 26 Всего: 49 |
Стандартных методов для этого нет. Нужно мутит самим.
-------------------- Я желаю всем Счастья! |
|||
|
||||
| Akina |
|
|||
|
Советчик Профиль Группа: Модератор Сообщений: 20581 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 34 Всего: 454 |
[code=vb]
Sub КопированиеЛистаВНужнуюКнигу() Sheets("ИмяКопируемогоЛистаЛиста").Copy After:=Workbooks("ИмяКнигиВКоторуюКопировать.xls").Sheets("ЛистПослеКоторогоВставить") End Sub |
|||
|
||||
| Aline |
|
||||
|
Опытный Профиль Группа: Участник Сообщений: 470 Регистрация: 22.7.2005 Где: Таруса Репутация: нет Всего: нет |
Я попробовала сделать так:
но на строке
появляется ошибка : Subscript out of range |
||||
|
|||||
| Akina |
|
|||
|
Советчик Профиль Группа: Модератор Сообщений: 20581 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 34 Всего: 454 |
На что ругается - на коллекцию книг или на массив листов? -------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
| Aline |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 470 Регистрация: 22.7.2005 Где: Таруса Репутация: нет Всего: нет |
похоже, на массив листов
Добавлено @ 10:53 хотя и на это тоже Workbooks(OpenFileName): в окне Watches напротив этого значения написано Subscript out of range |
|||
|
||||
| Akina |
|
|||
|
Советчик Профиль Группа: Модератор Сообщений: 20581 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 34 Всего: 454 |
А книга, в которую копируется лист, открыта???
-------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
| Aline |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 470 Регистрация: 22.7.2005 Где: Таруса Репутация: нет Всего: нет |
Книга открыта, но не активна. Когда пытаюсь сделать её активной, тоже ругается
|
|||
|
||||
| Akina |
|
|||
|
Советчик Профиль Группа: Модератор Сообщений: 20581 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 34 Всего: 454 |
Вот эту проблему и лечите. Ноги растут именно оттуда. -------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
| Aline |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 470 Регистрация: 22.7.2005 Где: Таруса Репутация: нет Всего: нет |
если бы ещё знать как лечить, потому как с макросами и Visual Basic'ом я впервые столкнулась на прошлой неделе
|
|||
|
||||
| Naghual |
|
|||
|
Эксперт Профиль Группа: Завсегдатай Сообщений: 1893 Регистрация: 15.5.2004 Где: Украина, Днепр Репутация: 26 Всего: 49 |
Привожу код модуля книги, в которой формируется Лист:
-------------------- Я желаю всем Счастья! |
|||
|
||||
| Aline |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 470 Регистрация: 22.7.2005 Где: Таруса Репутация: нет Всего: нет |
Naghual, спасибо, сейчас попробую
|
|||
|
||||
| Aline |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 470 Регистрация: 22.7.2005 Где: Таруса Репутация: нет Всего: нет |
Naghual, всё замечательно работает, спасибо огромное
|
|||
|
||||
| Naghual |
|
|||
|
Эксперт Профиль Группа: Завсегдатай Сообщений: 1893 Регистрация: 15.5.2004 Где: Украина, Днепр Репутация: 26 Всего: 49 |
Всегда пожалуйста.
Можно еще извернутся и нарисовать диалог выбора Листа, после которого вставлять. -------------------- Я желаю всем Счастья! |
|||
|
||||
|
|
| Правила форума "VB6" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
| 1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | VB6 | Следующая тема » |
[ Время генерации скрипта: 0.0558 ] [ Использовано запросов: 21 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |