Активация рабочей книги по маске

[Игорь_зап]

Добрый день.
Возник вопрос. Открыты два рабочих файла excel. Текущий файл (например, Current.xls), в котором будет запускаться макрос и файл имя которого начинается на GROUP (далее в имени файла возможны варианты и находятся в разных каталогах). Как активировать файл GROUP*.xls с файла Current.xls?

[Aleksandr H.]

В цикле по открытых книгах пройтись сравнивая .name с group. А когда нашел, то .activate или .[a1].select. Это раз. А два может быть https://stackoverflow.com/questions/...orkbook-in-vba

[Игорь_зап]

Спасибо за ответ.
Я не понимаю как прописать цикл, если мне известно неполное имя файла (известно только первые пять букв - GROUP).
Во втором варианте нужно знать полностью имя файла - проблемка.

[Hugo121]

В абсолютном большинстве случаев коду нет необходимости активировать книги, а нужно лишь их определить для дальнейшей работы с ними. Определили, получили ссылку на объект, работаем по ссылке.
Активировать может быть нужно только в финале, чтоб показать нужную юзеру для дальнейшей работы.

[Aleksandr H.]

проблема в незнании концовки имени файла GROUP?

Dim wb As Workbook
For Each wb In Workbooks
     if Instr(wb.Name,"GROUP") > 0 then
        with wb
         ' do some actions with 
        end with
         exit for
     end if
Next wb

[Serge_Bliznykov]

тут далеко не всё так просто.
дело в том, что

Сообщение от Aleksandr H.

For Each wb In Workbooks

перебирает открытые книги только в пределах одного запущенного экземпляра Excel (одно Application)
попробуйте запустить несколько раз Excel, откройте в каждом свой файл и проверьте этот макрос.
У меня, например, он не работает.

Сообщение от Игорь_зап

Открыты два рабочих файла excel.

а кто и как эти два файла открыл?

[Игорь_зап]

Спасибо Всем за ответы.
У меня, например, открыто несколько файлов excel (извиняюсь, я писал сразу только про два файла, но теоритически могут быть открыты и другие файлы). И мне нужно скопировать данные из файла Current.xlsm в файл, который тоже открыт и имеет имя, которое начинается с GROUP... .xls. Макрос будет запускаться из файла Current.xlsm.
Для определения нужных столбцов для вставки данных и вставки самих данных нужно перейти в книгу GROUP... .xls.
То есть я думал при помощи цикла перебрать по маске файла все открытые рабочие книги, найти её и активировать.
Открываю я эти файлы на своём компьютере.
Не понял вопроса "как открыл"?
Попробовал у себя макрос Александра - работает. Не сильно понял в каком случае он не сможет работать.

[Aleksandr H.]

Сообщение от Serge_Bliznykov

перебирает открытые книги только в пределах одного запущенного экземпляра Excel (одно Application)
попробуйте запустить несколько раз Excel, откройте в каждом свой файл и проверьте этот макрос.
У меня, например, он не работает.

Cоветы as is. ТС не писал о несколько Application'ов. В такой ситуации пусть держит group закрытый и кормит его макросу через OpenDialog

[Serge_Bliznykov]

Сообщение от Aleksandr H.

Cоветы as is. ТС не писал о несколько Application'ов. В такой ситуации пусть держит group закрытый и кормит его макросу через OpenDialog

Ага. Так я же ничего против вашего совета не имею.
Просто отметил, что могут быть подводные камни.
Вот, лично у меня, макрос не работает как надо.
Но у TC, судя по его отзыву, всё хорошо.

Сообщение от Игорь_зап

Попробовал у себя макрос Александра - работает.

ну и отлично. Это же главное!

Сообщение от Игорь_зап

Не сильно понял в каком случае он не сможет работать.

когда книга открыта в другом экземпляере Excel. Ну, грубо говоря, одновременно может работать несколько одновременно запущенных Excel.
excel2work.jpg

Но, раз у Вас всё работает, то значит, Вас эти детали не должны беспокоить.

[Игорь_зап]

Спасибо Всем за комментарии. Процесс двинулся дальше.
Проверил у себя запуск приложений excel - работает одно. Но спасибо большое за разъяснение такого нюанса.
Как говорится: "Профессионализм это знание нюансов".