Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как сделать активным лист в нетекущей книге? / 6 сообщений из 6, страница 1 из 1
16.08.2011, 14:08
    #37397699
dima_ryzhov
dima_ryzhov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать активным лист в нетекущей книге?
Здравствуйте!
Собственно, сабж
Благодарю за внимание и Ваши советы!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.08.2011, 14:12
    #37397710
majestic-mike
majestic-mike
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать активным лист в нетекущей книге?
dima_ryzhov,

А что значит "Нетекущая книга"? создайте сколь угодно много экземпляров Excel - в каждом откройте по книге - получите объекты, в которых какие угодно листы активируете и как вам нужно обрабатывайте
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.08.2011, 19:31
    #37398387
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать активным лист в нетекущей книге?
Методом Activate.

Как до листа добраться, зависит от того, что подразумевается под "нетекущей книгой"

не жалей букв на вопрос, чтобы получить вменяемый ответ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.08.2011, 06:43
    #37398739
dima_ryzhov
dima_ryzhov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать активным лист в нетекущей книге?
Shocker.Pro, спасибо за ответ.
Так... пробую еще раз :)
под текущей я имею в виду Книгу, из которой запускается макрос
мне нужно, например, написать "bla-bla-bla" в ячейке A1 листа 1 Книги, открытой обычным способом
Код: plaintext
1.
Application.Workbooks.Open "E:\My_workbook.XLS"
Kn1 = ActiveWorkbook.Name
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.08.2011, 06:53
    #37398745
dima_ryzhov
dima_ryzhov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать активным лист в нетекущей книге?
то, что я описал выше, не так интересно, и решается просто
Код: plaintext
1.
2.
Application.Workbooks.Open "C:\test\2.xls"
kn1 = ActiveWorkbook.Name
Workbooks(kn1).Worksheets( 1 ).Cells( 1 ,  1 ) =  500
а как можно на первый лист второй Книги поставить автофильтр?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.08.2011, 09:08
    #37398850
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать активным лист в нетекущей книге?
Ну, собственно, ты сам почти ответил на свой вопрос.
Вообще, для обращения к чужой книге удобно будет завести переменную, то есть переделать твой пример таким образом:
Код: plaintext
1.
2.
Dim NewBook as Workbook
Set NewBook=Application.Workbooks.Open("C:\test\2.xls")
NewBook.Worksheets( 1 ).Cells( 1 ,  1 ) =  500
То есть в переменной NewBook у тебя будет жить ссылка на другую книгу и через нее ты можешь делать с ней все, что угодно, например поставить автофильтр...

это ответ на первую часть вопроса. Вторая часть - как поставить автофильтр....
Сервис-Макросы-Начать запись
делаешь что требуется, останавливаешь запись, смотришь, что получилось, адаптируешь под свои нужды
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как сделать активным лист в нетекущей книге? / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 152ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2158493]:
 0ms
get settings:
 15ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 47ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 40ms
get tp. blocked users:
 2ms
others: 14ms
total:  152ms
x
x
Закрыть


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